Imports System.IO
Imports System.Xml

Public Class ReadXMLFile

   Shared Sub Main()

      Dim document As XmlDocument = New XmlDocument()
      document.Load("ReadingXML.xml")

      ' create XmlNodeReader for document
      Dim reader As XmlNodeReader = New XmlNodeReader(document)

      ' display each node's content
      While reader.Read

         Select Case reader.NodeType

            ' if Element, display its name
         Case XmlNodeType.Element

               ' increase tab depth
               Console.WriteLine("<" & reader.Name & ">" )

               ' if empty element, decrease depth
               If reader.IsEmptyElement Then
                   Console.WriteLine("Element is Empty")
               End If

            Case XmlNodeType.Comment ' if Comment, display it
               Console.WriteLine("" )

            Case XmlNodeType.Text ' if Text, display it
               Console.WriteLine(reader.Value )

               ' if XML declaration, display it
            Case XmlNodeType.XmlDeclaration
               Console.WriteLine("                  reader.Value & "?>" )

               ' if EndElement, display it and decrement depth
            Case XmlNodeType.EndElement
               Console.WriteLine("" )
         End Select
      End While
   End Sub ' Main
End Class