VB.Net by API/System.Xml/XMLTextReader

New XmlTextReader

  
Imports System.Xml.Serialization, System.IO
Imports System.Xml
Public Class Tester
    Public Shared Sub Main
    
      Dim myXMLTextReader As New XmlTextReader("doc.xml")
      myXMLTextReader.ReadStartElement("UserChoice")
      Do While myXMLTextReader.Read()
         If myXMLTextReader.Name = "UserChoice" Then Exit Do
         Console.WriteLine(myXMLTextReader.ReadOuterXml)
      Loop
      myXMLTextReader.Close()
    End Sub
End Class

XMLTextReader.ReadStartElement

  
Imports System.Xml.Serialization, System.IO
Imports System.Xml
Public Class Tester
    Public Shared Sub Main
    
      Dim myXMLTextReader As New XmlTextReader("doc.xml")
      myXMLTextReader.ReadStartElement("UserChoice")
      Do While myXMLTextReader.Read()
         If myXMLTextReader.Name = "UserChoice" Then Exit Do
         Console.WriteLine(myXMLTextReader.ReadOuterXml)
      Loop
      myXMLTextReader.Close()
    End Sub
End Class