private sub form_load()
dim a
a=inputbox("请输入密码“，”系统提示“，”忘了“）
if （a="忘了“） then
msgbox"很简单“，，”系统提示“
else
if (a<>"123") then '123是密码
msgbox"密码错误“，，”系统提示“
else
msgbox"密码正确“，，”系统提示“
end if
end if
end if
end sub