填空题 下列程序执行时，要求输入一个密码，如果密码不正确，则显示出非法用户的对话框。请填空。
Const PassWord="12345678"
Dim inpass As String
inpass= 1("请输入你的密码"，"输入密码")
If inpass=PassWord Then Exit Sub
Else
2"对不起!你是非法用户。"，vbOKOnly＋vbCritical，"拒绝"
Unload Me
End If