Boa noite a todos.

Estou com um problema em um projeto onde tenho que migrar dados de um arquivo XML para um banco de dados mdb. Estava tudo normal ate o momento onde o arquivo veio com declaração XML: <?xml version="1.0" encoding="iso-8859-1"?> acontece que quando carrego o arquivo XML e vou ler os NÓS devido a essa declaração ele passa e encerrar a rotina. Sem essa declaração vai normal, pórem não posso tirar essa declaração do arquivo pois ela trata caracteres do arquivo como por exemplo "acentos".

Gostaria de ajuda como resolver para que quando carregar o arquivo e começar a ler os NÓS ele ignorar a primeira linha.

ROTINA DE LEITURA DO ARQUIVO

Dim RegXML As New DOMDocument

Dim i As Integer

Dim ii As Integer

Dim xmlArq As String

xmlArq = App.Path & "ackup     emp.xml"

RegXML.Load xmlArq

For i = 0 To (RegXML.childNodes(0).childNodes.Length - 1)  <-----  ele não encontra o NÓ e vai para o fim da rotina encerrando sem fazer nd   

        For ii = 0 To (RegXML.childNodes(0).childNodes(i).childNodes.Length - 1)

        Registro = Registro & RegXML.childNodes(0).childNodes(i).childNodes(ii).Text & vbCrLf

    Next ii

Next i

ARQUIVO XML PARA LEITURA

<?xml version="1.0" encoding="iso-8859-1"?> <--- não encontra pq isso não é um NÓ

<inicio>

     <BACKUP>

         <TB_CONDOMINIO>

             <Dados>

                 <COND_COD>2</COND_COD>

                 <COND_RAZSOC> CONDOMÍNIO SIBIPIRUNAS I</COND_RAZSOC>

                 <COND_FANT> CONDOMÍNIO SIBIPIRUNAS I</COND_FANT>

             </Dados>

         </TB_CONDOMINIO>

     </BACKUP>

</inicio>

Obrigado a todos