<?xml version="1.0"?>
<!-- This simple data represents food items in a grocery store -->
<GroceryStore>
	<StoreName>Fourth Coffee</StoreName>  
	<Departments>
		<Department Name="Breads">
			<Item ID="B1">
				<Name>Wheat Bread</Name> 
				<Price>1.29</Price>
				<New />
			</Item>
			</Department>
	</Departments>
</GroceryStore>

Private Function listElementsByTag() As String
Me.loadXmlFile() ' использует файл "Simple.xml"
Dim xElem As XmlElement
Dim strTag As String
Dim writer As New StringWriter
strTag = InputBox("Enter an XPath expression to find:", "Enter Search Expression", FindNodesXPath)
If strTag.Length > 0 Then
    'Найдите группу узлов, основанную на введенном выражении XPath.
    xmlNodeList = xmlDoc.SelectNodes(strTag) ' Ссылка на объект не указывает на экземпляр объекта.
    With writer ' ВЫВОД в контрол TextBox 
        If Not xmlNodeList Is Nothing Then
            For Each xElem In xmlNodeList
                .WriteLine("InnerText: " & xElem.InnerText) ' выводит:
                ' InnerText: Wheat Bread1.29 - отсутствует пробел перед Ценой
                ' как его поставить?
            Next xElem
        End If
    End With
End If
writer.Close()
Return writer.ToString
End Function