XML VB.Net

Module MainModule
    Sub Main()
        Dim MyReader As New Xml.XmlTextReader("c:\simple.xml")
        Dim strOutput As String, intCount As Integer
        Do While MyReader.Read
            Select Case MyReader.NodeType
                Case Xml.XmlNodeType.Element
                    System.Console.WriteLine(MyReader.Name)
                    If MyReader.HasAttributes Then
                        For intCount = 0 To MyReader.AttributeCount - 1
                            MyReader.MoveToAttribute(intCount)
                            System.Console.WriteLine(MyReader.Name & "=" & MyReader.Value)
                        Next
                    End If
                Case Xml.XmlNodeType.Text
                    System.Console.WriteLine(MyReader.Value)
                Case Xml.XmlNodeType.EndElement
                    System.Console.WriteLine(MyReader.Name)
            End Select
        Loop
    End Sub
End Module