text box for password

Sub checkPW()
Dim myPass as String, userPW as String
myPass = "some_silly_password"
 
userPW = InputBox("Enter your password.", "Password")
If userPW = myPass Then
    Sheets("Sheet1").Activate
Else
    MsgBox "Sorry, you entered an incorrect password."
End If
End Sub

Private Sub UserForm_Initialize()
    Me.TextBox1.PasswordChar = "*"
End Sub
 
Private Sub CommandButton1_Click()
    If Me.TextBox1.Value <> "PassWord" Then
        MsgBox "Invalid entry"
        Me.TextBox1.Value = ""
    Else
        Unload Me
    End If
End Sub