Module Module1 Sub Main() Dim reader As XmlReader = XmlReader.Create("myData.xml")
reader.ReadToFollowing("time") Dim time As String = reader.ReadElementContentAsString()
Dim transaction_time As DateTimeOffset = XmlConvert.ToDateTimeOffset(time)
Console.WriteLine(transaction_time) End Sub 'Main End Module