Dim intSeconds As Int64 = 32750 Dim timSpan As New TimeSpan(timSpan.TicksPerSecond * intSeconds) Dim strTime As String = timSpan.Hours.ToString("00") & ":" & timSpan.Minutes.ToString("00") & ":" & timSpan.Seconds.ToString("00")