Public Function TimeFromMilliseconds(the_ms As Long) As String
  Dim s_hour As Long
  Dim s_min As Long
  Dim s_sec As Long
  Dim s_ms As Long
  
  s_hour = the_ms \ 3600000 '3600sec*1000
  s_min = (the_ms Mod 3600000) \ 60000 '60sec*1000
  s_sec = (the_ms Mod 60000) \ 1000 '1000ms в минуте
  s_ms = the_ms Mod 1000
  TimeFromMilliseconds = IIf((s_hour > 0), Format$(s_hour, "00:"), "") & _
   Format$(s_min, "00:") & Format$(s_sec, "00:") & _
   Format$(CLng(s_ms \ 100) * 10, "00")
End Function

Public Function TimeSecFromMillisecondsStr(the_ms As Long) As String
  Dim s_sec As Long
  Dim s_ms As Long
  
  s_sec = the_ms \ 1000
  s_ms = the_ms Mod 1000
  TimeSecFromMillisecondsStr = s_sec & "." & Format$(CLng(s_ms \ 100), "0") & " s"
End Function