Imports System
Imports System.Xml
Module Module1
Sub Main()
Dim dto As DateTimeOffset
dto = DateTimeOffset.Now
Dim timeAsString As String = XmlConvert.ToString(dto)
Console.WriteLine(timeAsString)
End Sub
End Module