---

Set sh = CreateObject("WScript.Shell")
Do
    p = InputBox("Введите пароль:", "Система заблокирована")
    If p = "1234" Then Exit Do
    If p = "" Then MsgBox "Неверный пароль!"
Loop