Private Sub XmlLoad()
    ' Output string:
    Dim strout As String
    strout = ""
    
    ' Load an xml document into a DOM instance.
    Dim oXMLDom As New DOMDocument30
    oXMLDom.async = False
    oXMLDom.validateOnParse = False
    oXMLDom.resolveExternals = False
    oXMLDom.preserveWhiteSpace = True
    If oXMLDom.Load("c:\1.xml") = False Then
        MsgBox "Failed to load xml data from file."
        Exit Sub
    End If
    
    Dim Art As String
    Dim Qty As String
    Dim Price As String
    Dim Name As String
    Dim Group As String
    Dim oNodes As IXMLDOMNodeList
    Set oNodes = oXMLDom.SelectNodes("//T_CSI_PogodbeneTocke/*")
    
    

    For i =  0  To oNodes.Length -  1 
        Set oNode = oNodes.NextNode
         
            sname = oNode.nodename
            sData = oNode.XML
            Art = oNode.Attributes.getNamedItem("KODA").Text
            Qty = oNode.Attributes.getNamedItem("Kol").Text
            Name = oNode.Attributes.getNamedItem("Tekst").Value
           Debug.Print Art, Name, Qty, Price
        End If
    Next
    
End Sub