请问如何达到目的

在对话框中输入“111”
点“确定”则显示“密码正确”
点“取消”或输入111以外的字符则用警告对话框显示“密码错误”

我用下边的代码实验了好长时间也不管用阿
谁给我改一改阿 谢谢

dim strname ' 定义变量
strname = inputbox("请输入密码")
vbyes
WScript.echo strname& "密码正确"

vbno
vbExclamation
WScript.echo strname& "密码错误"