Private Sub TimerStoppuhr_Timer()
 
    Dim intMinutenanzeige As Long
    Dim txtSekundenanzeige As String
 
On Error GoTo TimerStoppuhr_error
 
    'Timer anhalten
    TimerStoppuhr = False
 
    'Gesamtzeit um eine Sekunde erhöhen
    intSekunden = Int(intSekunden) + 1
 
    'Anzeigetext für Minute und Sekunde zusammenbauen und anzeigen
    intMinutenanzeige = Int(intSekunden / 600)
    If (intSekunden - (intMinutenanzeige * 600)) < 100 Then
     txtSekundenanzeige = "0" & (intSekunden - (intMinutenanzeige * 600))
    Else
     txtSekundenanzeige = (intSekunden - (intMinutenanzeige * 600))
    End If
 
    LabelStoppUhr.Caption = intMinutenanzeige & ":" & txtSekundenanzeige
    'Timer starten
    TimerStoppuhr = True
 
TimerStoppuhr_exit:
    Exit Sub
 
TimerStoppuhr_error:
    MsgBox "Fehlernummer: " & Err.Number & "  " & Err.Description
 
End Sub