VBS输入正确密码后才能运行下面的代码怎么实现？？

set shell= CreateObject("Wscript.Shell")
password=inputbox("请输入密码")

'假设你的密码是"123"
if password<>"123" then
shell.popup "密码错误,程序退出",1
wscript.quit
end if

'你的代码添加在下面
....
....