Dim output As StringBuilder = New StringBuilder()

Dim xmlString As String = "<?xml version='1.0'?>" & _
                "<!-- This is a sample XML document -->" & _
                "<Items>" & _
                  "<Item>test with a child element <more/> stuff</Item>" & _
                "</Items>"
' Create an XmlReader
Using reader As XmlReader = XmlReader.Create(New StringReader(xmlString))
    Dim ws As XmlWriterSettings = New XmlWriterSettings()
    ws.Indent = True
    Using writer As XmlWriter = XmlWriter.Create(output, ws)

        ' Parse the file and display each of the nodes.
        While reader.Read()
            Select Case reader.NodeType
                Case XmlNodeType.Element
                    writer.WriteStartElement(reader.Name)
                Case XmlNodeType.Text
                    writer.WriteString(reader.Value)
                Case XmlNodeType.XmlDeclaration
                Case XmlNodeType.ProcessingInstruction
                    writer.WriteProcessingInstruction(reader.Name, reader.Value)
                Case XmlNodeType.Comment
                    writer.WriteComment(reader.Value)
                Case XmlNodeType.EndElement
                    writer.WriteFullEndElement()
            End Select
        End While
    End Using
End Using
OutputTextBlock.Text = output.ToString()

Dim output As StringBuilder = New StringBuilder()

Dim xmlString As String = _
    "<bookstore>" & _
            "<book genre='autobiography' publicationdate='1981-03-22' ISBN='1-861003-11-0'>" & _
                "<title>The Autobiography of Benjamin Franklin</title>" & _
                "<author>" & _
                    "<first-name>Benjamin</first-name>" & _
                    "<last-name>Franklin</last-name>" & _
                "</author> " & _
                "<price>8.99</price>" & _
            "</book>" & _
        "</bookstore>"

' Create an XmlReader
Using reader As XmlReader = XmlReader.Create(New StringReader(xmlString))

    reader.ReadToFollowing("book")
    reader.MoveToFirstAttribute()
    Dim genre As String = reader.Value
    output.AppendLine("The genre value: " + genre)

    reader.ReadToFollowing("title")
    output.AppendLine("Content of the title element: " + reader.ReadElementContentAsString())
End Using

OutputTextBlock.Text = output.ToString()