hide password characters

[scouse13]

hi all
am using the below code to protect a sheet from opening, what do I need to put in the code so as the password is entered asterisks appear instead of the actual password characters.

many thanks
scouse13

[code]
Private Sub CommandButton16_Click()

Const strPass As String = "basket"
Dim strPassCheck As String
Dim IPassAttempts As Long

Do Until IPassAttempts = 3
IPassAttempts = 1 + IPassAttempts
ICount = ICount + 1
strPassCheck = InputBox("Password?", "Attempt " & IPassAttempts & "of 3")
If strPassCheck = vbNullString Or IPassAttempts = 3 Then Exit Sub
If strPassCheck = strPass Then Exit Do
Loop

Sheets("Maintenance").Select

End Sub
[code\]

[GilEytan]

using InputBox will not help you,

you need to develop your own userform just for entering a password, and set a textbox property "PasswordChar" to "*"
or in the code:
TextBox1.PasswordChar = "*"

Gil