Simple XML Reading

Imports System.Xml
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim doc As XmlDocument

        ' Create a new XmlDocument
        doc = New XmlDocument()

        ' Load data
        doc.Load("http://dev.markitondemand.com/Api/Quote?symbol=aapl")
        'Read Data
        Dim xmlreader1 = New XmlNodeReader(doc)

        While xmlreader1.Read()
            Select Case xmlreader1.Name
                Case "Low"
                    MsgBox(xmlreader1.ReadInnerXml)
            End Select
        End While

    End Sub
End Class