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 = Int(lSec - (lMin * 60))
 
lStd = Int(lMin / 60)
lMin = Int(lMin Mod 60)
 
TimeFormat = Format$(lStd, "00") & ":" & Format$(lMin, "00") & ":" & Format$( _
  lSec, "00")
End Function