Password Masking

Hi Gurus.. :D

Need some wisdom.. ;) I got code behind buttons on my main switchboard form to enable passwords on the buttons.. I use the following code...

Private Sub Option2_Click()
On Error GoTo Err_Option2_Click

Dim stDocName As String
Dim stLinkCriteria As String
Dim Password1

Password1 = InputBox("Please Type the Password", "Password Prompt")

If Password1 = "password" Then
stDocName = "Main Form"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else

End If

Exit Sub
Exit_Option2_Click:
Exit Sub

Err_Option2_Click:
MsgBox Err.Description
Resume Exit_Option2_Click
End Sub

My issue is that I need to mask the password, I know if it can be done by other methods, such as creating an inputbox on main form and setting the input mask property to Password and useing the button to make this visible.. etc.. However, a little bit of a mess.. the above code is simple and straight forward.. Is there any VB code that I can enter for an input mask for the inputbox :confused:

Hope you can help.. Thanks.. :D