This is probably a simply question, but I'll feel like a dullard later. I
have an input box that I want to format the text as *** (standard password )
Heres what I have:

Dim ans As String

ans = InputBox("Enter password")
ans = UCase(ans)
If ans <> "PASSWORD" Then
MsgBox "Incorrect, try again"
Exit Sub
ELSE
etc ect

Thanks