Private Function TimeFormat(Millisek As Long) As String
Dim iStd As Integer, iMin As Integer, iSec As Integer
 
iSec = Int(Millisek / 1000)
iMin = Int(iSec / 60)
iSec = iSec - (iMin * 60)
 
iStd = iMin / 60
iMin = iMin Mod 60
TimeFormat = Format$(iStd, "00") & ":" & Format$(iMin, "00") & ":" & Format$( _
  iSec, "00")
End Function