Public Class Tester
Public Shared Sub Main
Dim rightNow As Date = Now
Dim result As New System.Text.StringBuilder
result.Append("HH:mm:ss.fff z: ")
result.AppendLine(rightNow.ToString("HH:mm:ss.fff z"))
Console.WriteLine(result.ToString)
End Sub
End Class