VBA Userform Problem

Private Sub cmdAdmin_Click()
Dim Pass            As String
Dim Prompt          As String
Dim Title           As String
Dim UserPass        As String
Pass = "test"
Prompt = "Enter the password to continue"
Title = "Password Input"
UserPass = InputBox(Prompt, Title)
If UserPass  Pass Then
Prompt = "You have entered an incorrect password"
Title = "Incorrect Passowd"
MsgBox Prompt, vbCritical, Title
Exit Sub
End If
Application.Visible = True
'Unload Me
frmMultiple.Hide
End Sub