Mot de passe (*******)

Bonjour,
Je suis en train de créer une BDD pour la gestion des heures du personnel. Mon problème est le suivant,
j'ai un menu principal avec des boutons de commande et sur un bouton de commande j'ai mit un mot de passe avec VBA:

Private Sub Commande1_Click()

Dim strPassword

strPasswd = InputBox("Entrer mot de passe!", "Restricted Form")

'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.

If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If
'Si mot de passe correcte alors ouvrire le formulaire
'Si mot de passe incorrecte alors afficher message et exit sub

If strPasswd = "blabla" Then
DoCmd.OpenForm "Formulaire_formulaires", acNormal
Else
MsgBox "Vous n'êtes pas autorisé d'entrer dans ce formulaire!", _
vbOKOnly, "Important Information"
Exit Sub
End If
End Sub

Le problème est que quand je entre le mot de passe il ne le masque pas et j'aimerai que le mot de passe soit masqué ainsi ******. Si quelqu’un pourrait m’aider je vous en serais très reconnaissant

Merci à l'avance.