Imports System
Imports System.Xml
Module Module1
Sub Main()
Dim dto As DateTimeOffset
dto = DateTimeOffset.Now
Dim timeAsString As [String] = XmlConvert.ToString(dto, "yyyy-MM-ddTHH:mm:sszzzzzzz")
Console.WriteLine(timeAsString)
End Sub
End Module