Option Explicit
 
Private Declare Function GetTickCount Lib "kernel32" () As Long
 
Dim StartZeit As Long
 
 
Private Sub StartCounter()
 StartZeit = SignedToUnsignedLong(GetTickCount())
End Sub
 
Private Sub StopCounter()
    Dim H As Double, M As Double
    Dim S As Double, MS As Double
 
    Dim strH As String, strM As String
    Dim strS As String, strMS As String
 
    MS = SignedToUnsignedLong(GetTickCount()) - StartZeit
 
    MS = MS / 1000
 
    H = Int(MS / 3600)
    MS = MS - H * 3600
    M = Int(MS / 60)
    MS = MS - M * 60
    S = Int(MS)
    MS = Int((MS - S) * 1000)
 
    strH = CStr(H)
    strM = Format(CStr(M), "##00")
    strS = Format(CStr(S), "##00")
    strMS = CStr(MS)
 
    MsgBox strH & ":" & strM & ":" & strS & ":" & strMS
End Sub
 
Private Function SignedToUnsignedLong(ByVal LongIn As Long) As Double
    If LongIn < 0 Then
        SignedToUnsignedLong = LongIn + 4294967296#
    Else
        SignedToUnsignedLong = LongIn
    End If
End Function
 
Private Sub Command1_Click()
 StartCounter
End Sub
 
Private Sub Command2_Click()
 StopCounter
End Sub