Standard TimeSpan Format Strings
Module Example Public Sub Main() Dim duration As New TimeSpan(1, 12, 23, 62) Dim output As String = "Time of Travel: " + duration.ToString("c") Console.WriteLine(output) Console.WriteLine("Time of Travel: {0:c}", duration) End Sub End Module