I've set up a password protect for a feature of the database I'm working on. How do I make the inputted password text show up as stars instead of text. my code is this:

Private Sub Command14_Click()
On Error GoTo Err_OpenForm

Dim Mypwd As String


Mypwd = InputBox("Enter Your Password")


If Mypwd <> "j2mechanical" Then
Exit Sub
Else
DoCmd.OpenForm "Subform2"
End If

Exit_OpenForm:
Exit Sub
Err_OpenForm:
MsgBox Err.Number & " ; " & Err.Description
Resume Exit_OpenForm


End Sub