[Resolvido]Palavra Passe

Bom Dia
A minha questão é a seguinte, tenho este código e queria que ao digitar a palavra passe esta em vez de aparecer mesmo a palavra aparecesse ******
Obrigado

Private Sub btAbrir_Click()
Dim UsrResposta
UsrResposta = InputBox("Insira a palavra passe para abrir o formulário", "Palavra Passe")
If UsrResposta = "123456789" Then '
DoCmd.OpenForm "Formulário2"
Else
MsgBox "Palavra Passe Incorrecta ", vbCritical, "Palavra Passe Incorrecta"
End If
End Sub

Bom Dia
Eu não tenho Caixa de Texto ! mas sim o apenas o Código em um botão e chama o form.

Bem eu não encontro nenhuma caixa de texto. Até porque mudo o Nome do form para outro que nada tem, um novo form e acontece o mesmo.

Não tem caixa de texto mesmo, a chamada é feita por uma InputBox no código.

Para usar mascara na InputBox, tem de usar um outro codigo de nome InputBoxDK, procure aqui mesmo.

https://www.google.com/search?hl=pt&as_q=&as_oq=InputBoxDK&as_sitesearch=maximoaccess.forumeiros.com

Certo.
Obrigado pela ajuda Sr. J.Paulo
Esta resolvido.

Obrigado pelo retorno o forum agradece.