Passwortabfrage

Private Sub cmdOK_Click()
If txtPasswort.Text = "xyz" Then
frmDaten.Show
Unload Me
Else
MsgBox "Kein Zugang!"
txtPasswort.Text = ""
txtPasswort.SetFocus
End If
End Sub

Jetzt soll nach der 3.falschen Eingabe des Passwortes die Arbeitsmappe geschlossen werden. Vielen Dank im voraus