Hallo Alexander,
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
'// pruefen das korrekte Kennwort
If txtUserName = "meinBenutzername" And txtPassword = "meinKennwort" Then
LoginSucceeded = True
Me.Hide
Else
MsgBox "Fehler, Bitte nochmals versuchen!", , "Login"
txtUserName.SetFocus
txtUserName.Text = ""
txtPassword.Text = ""
End If
End Sub
Gruesse,