如何让让密码显示为星号？

goto2008

想实现现点击一下，在输入密码12345时，显示的是星号，而不是直接的密码12345。
请教如何改下面的代码。

Private Sub anniu_Click()
  If InputBox("输入正确的密码方可打开！", "请输入密码!", "请在此处输入密码") = "12345" Then
     DoCmd.OpenForm "AAA"
     Forms!BBBB.Visible = False
  Else
     MsgBox "密码不对,请重新输入密码!", vbExclamation = vbOKOnly, "提示"
  End If
End Sub

asklove

网上找的-江羽的例子
你看看