VB.Net by API/System.Xml/XMLTextReader

New XmlTextReader

<source lang="vbnet"> 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

 </source>

XMLTextReader.ReadStartElement

<source lang="vbnet"> 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

 </source>