Private Function TimeFormat(Millisek As Long) As String
 
Dim lStd As Long, lMin As Long, lSec As Long
 
 
lSec = Int(Millisek / 1000)
lMin = Int(lSec / 60)
lSec = lSec - (lMin * 60)
 
 
 
lStd = Int(lMin / 60)    '<-----  Hier!
lMin = lMin Mod 60
 
 
TimeFormat = Format$(lStd, "00") & ":" & Format$(lMin, "00") & ":" & Format$( _
  lSec, "00")
 
End Function