How to make a good password program in vbscript

Code:
dim pass, guess, once, yn
once=0
pass=”banana cream pie”
msgbox(“Prepare to be annoyed!”),0+64+4096,(“Password”)
msgbox(“Unless of course…”),0+64+4096,(“Password”)
msgbox(“You guess the password…”),0+64+4096,(“Password”)
yn=msgbox(“Want to try?”,+4+32+4096,”Password”)
if yn=7 then
msgbox(“To bad! Your doing it anyway!”),0+64+4096,(“Password”)
else
msgbox(“Ok Here we go!”),0+64+4096,(“Password”)
end if
do
if once=1 then
guess=inputbox(“Try again!”,”Password”,”Guess again!”)
else
guess=inputbox(“Take a guess!”,”Password”,”Guess here!”)
end if
if guess=pass then
msgbox(“How the crap did you get that?”),0+48+4096,(“Password”)
msgbox(“I cant annoy you forever :'(“),0+64+4096,(“Password”)
msgbox(“Bye”),0+64+4096,(“Password”)
wscript.quit
else
msgbox(“Wrong Password!”),0+16+4096,(“Password”)
end if
once=1
loop