<Пиво>
	<Тип>1</Тип>
	<Фильтрованное>0</Фильтрованное>
	........
		<Тара>
			<Стекло>0</Стекло>
			<Пробка>1</Пробка>
		</Тара>
</Пиво>

    Dim xmlDoc        As MSXML2.DOMDocument
    Set xmlDoc = New DOMDocument
    xmlDoc.async = False
    xmlDoc.validateOnParse = False
    xmlDoc.Load Files

    Dim objNode As IXMLDOMElement
    For Each objNode In xmlDoc.getElementsByTagName("Пиво").Item(BeerItem).childNodes()