主题：InputValue弹出窗口的几个问题

Dim Val As Integer

InputValue(Val, "提示","请输入密码!") '输入数值

If Val = "888" Then  '开发者才能打开开发设计器

   MessageBox.Show("密码正确!","提示")

Else

   MessageBox.Show("密码不正确!","提示")

End If

上述代码只要密码不正确,不管是按取消还是直接关闭弹窗口都会显示密码不正确,几个问题请教

1 如何获取弹窗中的取消或者确定按钮,也就是如果按取消就关闭窗口但不提示密码不正确的提示

2 弹窗的输入栏如果想要显示为掩码可以吗?即输入密码时每输入一个字符都显示为*号

谢谢