rivate Sub cmdBerechnen_Click()
Dim Anzahl As Integer
 
Anzahl = Val(Text5.Text) 
Anzahl = Anzahl + 1 
Text5.Text = Anzahl 
 
If txtZeit1 < "08:00:00" Then
MsgBox "Es sind noch keine weiteren 8 Stunden erreicht!", vbInformation, "BT" & _
  "aktualisieren?"
End If
 
End Sub