I am trying to get a list of all of the data in an XML doc. I thought something like this would work but it returns the whole doc as one item :( anyone have something for this?

        Dim xdoc As XmlDocument = New XmlDocument
        Dim xnode As XmlNode
        Dim xChild As XmlEntity
        Dim retval As String

        xdoc.LoadXml(xstr)    ' Any well formed XML 

        For Each xnode In xdoc
            retval &= "<B>" & xnode.Name.ToString & "</B>"
            retval &= xnode.InnerText.ToString & "<BR>"
            For Each xChild In xnode
                retval &= "<B>" & xChild.Name.ToString & "</B>"
                retval &= xChild.InnerText.ToString & "<BR>"
            Next
        Next

My Thanks in advance,