Private Sub cmdOK_Click() 
  <font color=green>' Auf korrektes Kennwort überprüfen </font>
  If txtPassword = PASSWORD Then 
    <font color=green>' Geben Sie hier Code ein, um den Erfolg 
    ' an die aufrufende Unterroutine weiterzuleiten. 
    ' Setzen der globalen Variablen ist leicht. </font>
    LoginSucceeded = True 
    Me.Hide 
  Else 
    MsgBox "Ungültiges Kennwort. Bitte versuchen Sie es noch einmal!", , _
      "Anmeldung" 
    txtPassword.SetFocus 
    txtPassword.SelStart = 0
    txtPassword.SelLength = 999
  End If 
End Sub