如何编写一个密码程序

do
if inputbox("请输入密码:","提示")<>"123" then
i=i+1:msgbox "密码错误,请重新输入!(你还有" & 3-i & "次机会。)"
else
msgbox "密码正确！":wscript.quit
end if
if i=3 then wscript.quit
loop