Cifrar la password **** :)

Hola! A ver si me puedes echar una mano ;)
He puesto una contraseña a un botón que abre un formulario con código muy sencillo con un cuadro de mensaje con botón aceptar cancelar, si no es la contraseña no entra, etc, ya entiendes, pero ahora quiero que al poner la contraseña no se lea en pantalla, que lo ponga con **** para que si hay alguien cerca no la vea ;) ¿Cómo lo hago? Te copio mi código y ya me dirás. Gracias por adelantado.
Private Sub Comando0_Click()
On Error GoTo Err_Comando0_Click
Dim stDocName As String
Dim stLinkCriteria As String
Dim strMensaje As String, strEntrada As String
' Inicializar la cadena.
strMensaje = "Contraseña incorrecta. " _
& "Haga clic en Aceptar para " _
& "introducir nuevamente la contraseña."
' Solicitar la introducción de datos del usuario.
strEntrada = InputBox("Escriba contraseña de entrada.")
' Determina si el usuario elige "Cancelar".
If strEntrada <> "" Then
' Comprobar el valor introducido.
Do While strEntrada <> "somoslosmejores"
If MsgBox(strMensaje, vbOKCancel, "¡Error!") = vbOK Then
strEntrada = InputBox("Escriba contraseña de entrada")
Else
Exit Sub
End If
Loop
Else
Exit Sub
End If
DoCmd.Close
stDocName = "FrmConvocatorias"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando0_Click:
Exit Sub
Err_Comando0_Click:
MsgBox Err.Description
Resume Exit_Comando0_Click
End Sub