paulovitor,

Veja se isso te ajuda,

Não sei exatamente o que você está tentando fazer

Sub TestXML6()
  Dim xdoc As MSXML2.DOMDocument
    Set xdoc = CreateObject("MSXML2.DOMDocument")
xdoc.async = False: xdoc.validateOnParse = False
xdoc.Load ("ThisWorkbook.Path & "teste.xml")
Set a = xdoc.SelectNodes("//DistributionLists/List")
For i = 1 To a.Length
Debug.Print a.Item(i - 1).XML
Next i

End Sub

paulovitor,

Por favor informe qual o método que você utilizou para resolver o seu problema, pois isso ajuda os demais usuários do fórum na hora da pesquisa

oi, Syrax
aparece um erro quando tento executar seu codigo.

user defined type not defined

o que estou tentando fazer eh escrever na tela conteudo de um arquivo xml. do primeiro codigo que passei, o que eu queria era imprimir na tela

Recon
John Chris
Jane Ashley
Brent

Safety Metrics
Tom Casper
Ashley
John
...

pra isso, o metodo que me pareceu mais simples eh esse do Xpath

eu estava tentando um outro, que mostro abaixo, mas esse lance de childs me pareceu mt confuso quando eu trabalhar com arquivos maiores

Sub TestXML5()
    Dim xdoc As Object
    Set xdoc = CreateObject("MSXML2.DOMDocument")
    xdoc.async = False: xdoc.validateOnParse = False
    xdoc.Load (ThisWorkbook.Path & "pss.xml")    
    'Get Document Elements
    Set lists = xdoc.DocumentElement    
    'Traverse all elements 2 branches deep
        For Each listNode In lists.ChildNodes
            For Each fieldNode In listNode.ChildNodes
                Debug.Print "[" & fieldNode.BaseName & "] = [" & fieldNode.Text & "]"
            Next fieldNode
       Next listNode     
    Set xdoc = Nothing
End Sub

paulovitor,

Veja se isso te ajuda,

Sub TestXML6()
    Dim xdoc As Object
    Set xdoc = CreateObject("MSXML2.DOMDocument")
xdoc.async = False: xdoc.validateOnParse = False
xdoc.Load (ThisWorkbook.Path & "teste.xml")
For i = 1 To xdoc.DocumentElement.ChildNodes.Length
Debug.Print xdoc.DocumentElement.ChildNodes.Item(i - 1).Text
Next i
End Sub

aparentemente sim, obrigado