Access - clave formulario no visible

Hola a todos y gracias por adelantado.
Tengo un formulario protegido por contraseña. Pero podría en el msgBox que me aparece que al escribir la contraseña no pudiera leerla, sino que me apreciera **** en vez de1234, ya que así verían los números que introduzco.

Este es el evento:

Private Sub Form_Open(Cancel As Integer)
Dim MyPass As String
Dim TuPass As String
MyPass = "1234" 'Clave que deseas para el formulario
TuPass = InputBox("CLAVE DE ACCESO A FACTURACIÓN", "Introduce la CLAVE", "")
If TuPass <> MyPass Then
MsgBox "La clave de acceso al formulario no es valida"
Cancel = -1
End If
End Sub

Gracias y un saludo.

EN LAS PROPIEDADES DEL CUADRO DE TEXTO DONDE ESCRIBIS EL PASS, DEBES PONER EN MASCARA DE ENTRADA , CONTRASEÑA o PASSWORD, Y VERAS LOS ASTERISCOS.

SALU2

QUIQUE

Hola j.leal

Lamentablemente la funcion Inputbox no permite enmascarar los caracteres con *** al menos no con el codigo nativo de access. Se puede hacer utilizando o creando un codigo en un modulo para tal efecto.

Hace tiempo hice un ejemplo como el que solicitas....
Puedes descargarlo desde http://sites.google.com/site/jjjt1973/ejemplos-access
Ejemplo 48) Control de Acceso a los Form Mediante Claves de Usuario

Desde Venezuela
Jefferson