Access - AYUDA SOY NOVATO EN ESTO QUIERO APRENDER

chicos tengo este caso...

Private Sub Comando9_DblClick(Cancel As Integer)

If InputBox("Ingrese una contraseña?", "Pregunta") = "1530" Then
Form.AllowEdits = True
MsgBox "Puede Liquidar"
DoCmd.OpenForm "LIQUIDACION", acViewNormal
Form.AllowEdits = False
DoCmd.Close acForm, "panel de navegacion", acSaveYes
MsgBox "Bienvenido"

Else
End If
End Sub
lo que buscos es que me escripte "1530" cuando me salga el cuadro de mesaje .. que yo escriba "1515" ,pero que se encripte o mas bien .. que s eponga en asteriscos "****"

• note.rar(128,7 KB)