Option Explicit
Dim BName
 
Private Sub Abbrechen_Click()
   Unload Me
End Sub
 
Private Sub Form_Load()
   BName = GetSetting(App.Title, Form3.txtUserName.Text, "Benutzername")
   Label4.Caption = BName
End Sub
 
Private Sub OK_Click()
   If Text2.Text = Text3.Text Then
      SaveSetting App.Title, Label4.Caption, "Benutzername", Label4.Caption
      SaveSetting App.Title, Label4.Caption, "Kennwort", Text2.Text
      Unload Me
   Else
      MsgBox "Die eingegebenen Kennwörter stimmen nicht überein" & vbCrLf & _
        vbCrLf & _
             "          Änderung wurde nicht ausgeführt"
   End If
End Sub

Option Explicit
 
Public LoginSucceeded As Boolean
 
Private Sub cmdCancel_Click()
    'Globale Variable auf False setzen,
    'um eine fehlgeschlagene Anmeldung zu kennzeichnen.
    LoginSucceeded = False
    End
End Sub
 
Private Sub cmdOK_Click()
Dim SetUN, SetN
If txtUserName.Text = "" Then
            MsgBox "Ungültiges Kennwort. Bitte versuchen Sie es noch einmal!", _
              , "Anmeldung"
            GoTo ENDE
        End If
    'Auf korrektes Kennwort überprüfen
    SetUN = GetSetting(App.Title, txtUserName.Text, "Benutzername")
    SetN = GetSetting(App.Title, txtUserName.Text, "Kennwort")
    If txtPassword = SetN And txtUserName = SetUN Then
        LoginSucceeded = True
        Me.Hide
        Form1.Show
    Else
        MsgBox "Ungültiges Kennwort. Bitte versuchen Sie es noch einmal!", , _
          "Anmeldung"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
ENDE:
End Sub

SaveSetting App.Title, Label4.Caption, "Benutzername", Label4.Caption

SetUN = GetSetting(App.Title, txtUserName.Text, "Benutzername")