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