Module ToString Public Sub Main() Dim span As TimeSpan ' Initialize a time span to zero. span = TimeSpan.Zero Console.WriteLine(span) ' Initialize a time span to 14 days. span = New TimeSpan(-14, 0, 0, 0, 0) Console.WriteLine(span) End Sub End Module