Private Sub XmlNodeListToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XmlNodeListToolStripMenuItem.Click
doc.Load("simple.xml")
Dim root As XmlElement = doc.DocumentElement
Dim elemList As XmlNodeList = root.GetElementsByTagName("name") 
Dim i As Integer
 For i = 0 To elemList.Count – 1
Console.WriteLine(elemList.ItemOf(i).InnerXml)
Next

?xml version="1.0" encoding="ISO-8859-1"?>
<!-- Edited by XMLSpy® -->
<breakfast_menu>
	<food>
		<name>Belgian Waffles</name> <!-- длина 15 символов -->
		<price>$5.95</price>
		<description>Two of our famous Belgian Waffles with plenty of real maple syrup</description>
		<calories>650</calories>
	</food>
</breakfast_menu>

Private Sub XmlIntoTextBoxToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles XmlIntoTextBoxToolStripMenuItem.Click
        xmlDisplay.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        ' xmlDisplay - это имя контрола TextBox
        Dim doc As XmlDocument = New XmlDocument()
        doc.Load("E:\CD_MY_new\Aid_COMMON\XML_theory\Viewing XML Files\simple.xml")
        Dim root As XmlElement = doc.DocumentElement
        Dim elemList As XmlNodeList = root.GetElementsByTagName("name") 
        Dim writer As New StringWriter 	
        For i = 0 To elemList.Count - 1
             xmlDisplay.Text += Format("{0, 28}", elemList.ItemOf(i).InnerText + "  !!  " + vbCrLf)
            ' при 28 не выравнивает справа, одинаково что при '-28' и при '28'
            ' выравнивает только слева.
        Next
End Sub

Dim elemList_price As XmlNodeList = root.GetElementsByTagName("price") 
Dim elemList_ calories As XmlNodeList = root.GetElementsByTagName("calories") 
Не будем же ещё 2 цикла ставить  типа
        For i = 0 To elemList.Count - 1
             xmlDisplay.Text += Format("{0, 28}", elemList.ItemOf(i).InnerText + "  !!  " + vbCrLf)
        Next