Private Sub dumpFromString(ByVal src As String)
        Dim reader As XmlTextReader = New XmlTextReader(New StringReader(src))
        reader.Read()
        While Not reader.EOF
            System.Diagnostics.Trace.Write(reader.NodeType.ToString())
            If reader.NodeType = XmlNodeType.Whitespace Then
                System.Diagnostics.Trace.Write(" value: ")
                For Each ch As Char In reader.Value
                    System.Diagnostics.Trace.Write(AscW(ch))
                    System.Diagnostics.Trace.Write(" "c)
                Next
            End If
            System.Diagnostics.Trace.WriteLine("")
            reader.Read()
        End While
    End Sub

    Private Sub getItemText(ByVal src As String)
        Dim doc As XmlDocument = New XmlDocument
        doc.LoadXml(src)
        System.Diagnostics.Trace.WriteLine("text in item is: " _
         & doc.SelectSingleNode("//item").InnerText)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        System.Diagnostics.Trace.WriteLine("*** document1")
        dumpFromString(document1)
        getItemText(document1)
        System.Diagnostics.Trace.WriteLine("*** document2")
        dumpFromString(document2)
        getItemText(document2)
    End Sub