Use "gb.xml"

Dim contents As String = "<xml>"
"<foo>"
"  <p attr=\"1\">Hello</p>"
"  <p attr=\"2\">Hi</p>"
"  <p attr=\"3\">Greetings</p>"
"</foo>"
"<bar>"
"  <p attr=\"1\">Goodbye</p>"
"  <p attr=\"2\">Bye</p>"
"  <p attr=\"3\">See ya</p>"
"</bar>"
"</xml>"

Dim reader As New XmlReader
reader.FromString(contents)

'Toggle these :)
reader.ReadFlags[XmlReaderNodeType.Element] = False
reader.ReadFlags[XmlReaderNodeType.Attribute] = False
reader.ReadFlags[XmlReaderNodeType.Text] = False
reader.ReadFlags[XmlReaderNodeType.EndElement] = False

reader.Read()
While Not reader.Eof
    Print reader.Node.Type;;
    Select Case reader.Node.Type
      Case XmlReaderNodeType.Element
        Print "element"
      Case XmlReaderNodeType.Attribute
        Print "attribute"
      Case XmlReaderNodeType.Text
        Print "text"
      Case XmlReaderNodeType.Comment
        Print "comment"
      Case XmlReaderNodeType.CDATA
        Print "cdata"
      Case XmlReaderNodeType.EndElement
        Print "endelement"
      Default
      Print ""
    End Select
reader.Read()
Wend
