Option Explicit
Private Sub cmdCancel_Click()
    Me.Hide
End Sub
 
Private Sub cmdOK_Click()
    If txtUserName = "Admin" Then     'UserName wird überprüft
        If txtPassword = "admin" Then   'Passwort wird überprüft, sofern der 
        ' UserName stimmt.
            Me.Hide
            Haupt.Show
        Else
              MsgBox "Benutzername oder Password falsch! Bitte versuchen Sie es" & _
                "noch einmal!", , "Anmeldung"
              txtPassword.SetFocus
             SendKeys "{Home}+{End}", True ' Home + End markieren den Text ; , 
             ' true wartet bis Send erfolgt ist
        End If
    Else
    MsgBox "Benutzername oder Password falsch! Bitte versuchen Sie es noch" & _
      "einmal!"
    txtPassword.SetFocus
    SendKeys "{Home}+{End}", True ' Home + End markieren den Text ; , true 
    ' wartet bis Send erfolgt ist
    End If
End Sub