Tenho o seguinte xml abaixo :

<cadastro>
    <ESCOLA SEQ_ESC="6805">
        <aluno>344</aluno>
        <cor_raca>1</cor_raca>
        <aluno>345</aluno>
        <cor_raca>2</cor_raca>
        <aluno>5343</aluno>
        <cor_raca>3</cor_raca>
    </ESCOLA>
    <ESCOLA SEQ_ESC="6806">
        <aluno>53</aluno>
        <cor_raca>4</cor_raca>
        <aluno>355</aluno>
        <cor_raca>2</cor_raca>
        <aluno>644</aluno>
        <cor_raca>3</cor_raca>
    </ESCOLA>    

</cadastro>

meu programa :

Dim ObjXML As DOMDocument
Set ObjXML = New DOMDocument
Dim Node As IXMLDOMNode

Dim CaminhoArquivoXML As String
CaminhoArquivoXML = "C:CorRacaAluno.xml"

If Not ObjXML.Load(CaminhoArquivoXML) Then
    'Nao conseguiu ler o arquivo xml
    MsgBox "O arquivo " & CaminhoArquivoXML & " não foi encontrado portanto a atualização de Cor e Raça não será realisada", vbInformation
    Exit Sub
End If

agora preciso ler na seguinte sequencia :
ESCOLA campo SEQ_ESC, ALUNO, COR_RACA

Como faço ???

Olá, no site do macoratti, tem um exemplo de como trabalhar com arquivos XML.

acesse o link abaixo e veja se serve para você.