Парсинг документа с XML структурой

        For Each Str As String In IO.File.ReadAllLines("C:\Test.txt", System.Text.Encoding.Default)
            If Str.Contains("/") Then ListBox1.Items.Add(Str.Split(">")(1).Split("<")(0))
        Next

Dim doc As New XmlDocument()
        doc.LoadXml(RichTextBox1.Text)
        Dim ordersList As XmlNodeList = doc.DocumentElement.ChildNodes
        For Each nodeOrder As XmlNode In ordersList
            Dim goodsList As XmlNodeList = nodeOrder.ChildNodes
            For Each nodeGood As XmlNode In goodsList
                MessageBox.Show(nodeGood.Attributes("place").Value)
            Next
        Next

Dim doc As New XmlDocument()
        doc.Load("01.xml")
        Dim ordersList As XmlNodeList = doc.DocumentElement.ChildNodes
        For Each nodeOrder As XmlNode In ordersList
            Dim goodsList As XmlNodeList = nodeOrder.ChildNodes
            For Each nodeGood As XmlNode In goodsList
                TextBox1.AppendText(nodeGood.Value)
            Next
        Next

 MessageBox.Show(nodeGood.Attributes("place").Value)

 MessageBox.Show(nodeGood.ChildNodes(0).Value)

' Загружаем Xml документ
Dim xDFile As XmlDataDocument = New XmlDataDocument()
xDFile.Load("file.xml")
 
'Выбираем все узлы <doc><city><this>
Dim thisNodes As XmlNodeList = xDFile.SelectNodes("doc/city/this")
 
For Each node As XmlNode In thisNodes
    Console.WriteLine(node.InnerText)
Next