Masquer les caractr mot de passe ds un inputbox

Bonjour/bonsoir,

En considerant le code suivant:

Dim acces As String
acces = InputBox("Mot de passe", "Super Manager")

If acces = "mmmm" Then
UserForm1.Show
Else
MsgBox "Acces refuse"
End If

Je voudrais savoir comment masquer un a un par des "****" les caracteres du mot de passe alors meme que l'utilisateur est entrain de les saisir.

Merci d'avance!