CONST DELIMITER="/"

private sub ReadFile(srcFile as string)
    

Dim dom As MSXML2.DOMDocument30
    Set dom = New MSXML2.DOMDocument30
    dom.load(srcFile)
    
    If dom.parseError.errorCode = 0 Then
        Set nodelist = dom.selectNodes("//")
        For Each node In nodelist

End Sub

Private Function GetNodeAdress(node As IXMLDOMNode) As String
    On Error GoTo EH
    Dim n As IXMLDOMNode
    Dim str As String
    Set n = node
    Do Until n Is Nothing
        str = DELIMITER + n.baseName + str
        Set n = n.parentNode
    Loop
    GetNodeAdress = Right(str, Len(str) - 2)
EH:
End Function

CONST DELIMITER="/"

private sub ReadFile(srcFile as string)
    Dim dom As MSXML2.DOMDocument30
    Set dom = New MSXML2.DOMDocument30

    Dim node As IXMLDOMNode
    Dim nodelist As IXMLDOMNodeList

    dom.load(srcFile)
    If dom.parseError.errorCode = 0 Then
        Set nodelist = dom.selectNodes("//")
        For Each node In nodelist
               'Тут заполняешь лист с помощью функции GetNodeList() и node.nodeTypedValue
        next node
End Sub

Private Function GetNodeAdress(node As IXMLDOMNode) As String
    On Error GoTo EH
    Dim n As IXMLDOMNode
    Dim str As String
    Set n = node
    Do Until n Is Nothing
        str = DELIMITER + n.baseName + str
        Set n = n.parentNode
    Loop
    GetNodeAdress = Right(str, Len(str) - 2)
EH:
End Function