Imports System
Public Class Program
Public Shared Sub Main()
Dim ms As Long = 8352983
Dim ts As TimeSpan = TimeSpan.FromMilliseconds(ms)
Dim s As String = String.Format("{0:D2}h:{1:D2}m:{2:D2}s:{3:D3}ms",
ts.Hours,
ts.Minutes,
ts.Seconds,
ts.Milliseconds)
Console.WriteLine(s)
End Sub
End Class
' run:
'
' 02h:19m:12s:983ms
'