Private Sub Command1_Click()
    If Text1 = "" Then
        MsgBox "Ingrese una contraseña válida"
    End If
End Sub

Private Sub Command1_Click()
    If Not IsNumeric(Text1) Then
        MsgBox "Ingrese únicamente números"
    End If
End Sub

Private Sub Command1_Click()
    If IsNumeric(Text1) Then
        MsgBox "Ingrese únicamente letras"
    End If
End Sub

If Text1.text = "hola" then 'Donde Text1 es donde pones el Pass...
msgbox "Contraseña Correcta"
Else
MsgBox "Contraseña Incorrecta"
End if