Setting the ***** password in a inputbox

Dear All,

How do i get the ****** to appear insted of text when it is an inputbox? and not a box inside a form. here is the code i am using

Private Sub Command96_Click()
Dim sPwd As String, strMsg As String
 
    strMsg = "Please Enter Your Password"
    sPwd = InputBox(Prompt:=strMsg, _
    Title:="Form Security Check", XPos:=5000, YPos:=4000)
 
Select Case sPwd
 
    Case "Hello" 'This is the password
        DoCmd.OpenForm "frm_menu_DBA", acNormal, , , acFormReadOnly
 
    Case Else
        MsgBox "Sorry, Wrong Password Entered. Please Try Again"
 
 End Select

End Sub