<?xml version="1.0" encoding="UTF-8" ?>
<go-xis xmlns="http://www.glas-online.info/definitions/go-xis.xsd">
<order order_date="2009-09-23" delivery_date="2009-09-27" delivery_type="1" order_no="11" customer_no="0" customer_name="АРКА" document_type="order">
<files>
<file filename="A_11_1_1.emf" action="copy"/>
<file filename="A_11_2_1.emf" action="copy"/>
<file filename="A_11_2_2.emf" action="copy"/></files>
<position article_code="special" description="4/16/4" short_description="4/16/4" width="598.0" height="1198.0" quantity="2" position_no="1" field_no="A" customer_short_name="Test1          " thickness="24.0">
<production_information order_no="11" lot="0" production_no="0"/>
<exchange exchange_no="2" article_code="" szr="16"/></position>
<position article_code="special" description="4/16/4" short_description="4/16/4" width="523.0" height="1198.0" quantity="1" position_no="2" field_no="A" customer_short_name="Test1          " thickness="24.0">
<production_information order_no="11" lot="0" production_no="0"/>
<exchange exchange_no="2" article_code="" szr="16"/></position>
<position article_code="special" description="4/16/4" short_description="4/16/4" width="627.0" height="1302.0" quantity="1" position_no="2" field_no="B" customer_short_name="Test1          " thickness="24.0">
<production_information order_no="11" lot="0" production_no="0"/>
<exchange exchange_no="2" article_code="" szr="16"/></position>
</order>
</go-xis>

Public XMLFilePath As String, XmlDoc As MSXML2.DOMDocument60, objNode As IXMLDOMNode, _
objListOfNodes As IXMLDOMNodeList, oElement As IXMLDOMElement, Attribute1 As IXMLDOMAttribute

Private Sub ObrButton_Click()
Set XmlDoc = New DOMDocument60
XmlDoc.async = False
XmlDoc.validateOnParse = False
XmlDoc.Load "C:\A_200001.xml"
' "XMLFilePath
XmlDoc.setProperty "SelectionLanguage", "XPath"

Dim i As Long
Set objListOfNodes = XmlDoc.selectNodes("//*")
For Each oElement In objListOfNodes
    List1.AddItem "Узел " & oElement.nodeName

    For Each Attribute1 In oElement.Attributes
    List1.AddItem Attribute1.Name & " = " & Attribute1.Text
    Next

List1.AddItem ""
Next
End Sub