Option Explicit
Dim m As Integer
 
Private Sub cmd_abbruch_Click()
MsgBox "Vielen Dank, dass Sie unseren Bankautomat benutzt haben! Bitte besuchen" & _
  "Sie uns bald wieder!"
End
End Sub
 
Private Sub cmd_bestätigung_Click()
 
   If txt_pin.Text = "1234" Then
   frm_betragaussuchen.Show
Unload Me
End If
   If txt_pin.Text <> "1234" Then
   m = m - 1
   MsgBox "Der eingegebene PIN ist falsch. Sie haben noch " & m & " Versuche!"
   txt_pin.Text = ""
End If
   If m = 0 Then
   MsgBox "Sie haben 3x den falschen PIN eingeben. Sie können den Geldautomat" & _
     "nicht benutzen!"
End
 
End If
End Sub
 
Private Sub cmd_korrektur_Click()
txt_pin.Text = ""
End Sub
 
Private Sub cmd_nr_Click(Index As Integer)
 
   txt_pin.Text = txt_pin.Text & CStr(Index)
 
End Sub
 
 
Private Sub Form_Load()
m = 3
MsgBox "Zum testen des Bankautomats lautet der PIN 1234!"
 
End Sub