Hogyan lehet azt . Vbs-el megcsinálni, hogy az alábbi programnál rámegyek a mégsére és leálljon a program (ne folytatódjon)?

a = msgbox ("A bejelnetkezéshez nyomjon OK -ot, a kilépéshez Mégsét.", 1+256+vbExclamation, "Üdvözöljük a bejelentkezési felületen" )

if a = vbCancel then

End if

if a = vbOk then msgbox ("Bejelentkezés!")

dim pw

pw = "jelszó"

do

a = inputbox ("Kérem a jelszót!", 32)

if a> pw then x = MsgBox ("Jelszó elutasítva", vbExclamation)

if a< pw then x = MsgBox ("Jelszó elutasítva", vbExclamation)

loop until pw = a

if a = pw then Msgbox ("Jelszó elfogadva"), vbInformation

if a = vbYes then msgbox ("Bejelentkezés!")

dim pw

pw = "jelszó"

do

a = inputbox ("Kérem a jelszót!", 32)

if a> pw then x = MsgBox ("Jelszó elutasítva", vbExclamation)

if a< pw then x = MsgBox ("Jelszó elutasítva", vbExclamation)

loop until pw = a

if a = pw then Msgbox ("Jelszó elfogadva"), vbInformation