User Password On A Button - Encrypt Password

Hi,

Can someone tell me how to display a password a user enters in an input box associated with a button as xxxxx so that the actual password doesn't display as it is entered by user? Using code below.

Dim Pass As String
    Pass = Application.InputBox("Enter password")
    Select Case Pass
        Case "mypassword"
          'run code'
           
        Case Else
        MsgBox "Sorry - Incorrect Password", vbCritical
            Exit Sub
    End Select

Thank you much.
MB