Ler retorno de um XML (vba)

Boa tarde!!!

Como faço um loop para ler um XML, na verdade, estou tendo dificuldades em fazer o loop dentro de um "pai" (acho que é assim que fala).

Veja o que fiz até o momento.

Grato

Luciano

Dim lCounter, i as integer
For lCounter = 0 To oResposta.context.childNodes.length - 1
If oResposta.context.childNodes.Item(lCounter).baseName = "Pendencias" Then
txt = "PENDENCIAS..........:" & oResposta.context.childNodes.Item(lCounter).Text & vbCrLf & txt
'/// preciso saber como implementar este loop dentro de PENDENCIAS.
[b] For i = 0 To oResposta.context.childNodes.length - 1
If oResposta.context.childNodes.Item(i).baseName = "Protestos" Then[/b] v_protestos = "DATA................:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "NUMERO CARTORIO.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "CODIGO NATUREZA.....:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "DESCRICAO NATUREZA..:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "VALOR...............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "LOCALIDADE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "ESTADO..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "CIDADE..............:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "SUB JUDICE..........:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
v_protestos = "DATA CARTA ANUENCIA.:" & oResposta.context.childNodes.Item(i).Text & vbCrLf & v_protestos
End If
Next
End If
Next