Private Sub cmdBerechnen1_Click()
Dim Anzahl As Integer
If txtZeit1 <= "08:00:00" Then
MsgBox "Es sind noch keine 8 Stunden erreicht."
Else
Anzahl = Val(Text5.Text) 
Anzahl = Anzahl + 1 
Text5.Text = Anzahl 
End If
End Sub