[Resolvido]Extrair rem/destinatário XML

Prezados colegas,

Por favor, gostaria de saber como pegar (diferenciar) o remetente e o destinatário de um arquivo xml.
O nosso amigo anteixeira me auxiliou de forma excelente no desenvolvimento do código. Porém, conforme fui acrescentando campos, surgiu essa dificuldade.

Código:

Open meuFicheiro For Input As #1 'abre ficheiro para leitura
            Do Until EOF(1) 'ler ficheiro até ao fim linha a linha
                Line Input #1, textoLinha
                 textoXml = textoXml & textoLinha
            Loop
            'atribuir às variaveis temporarias os campos do XML
            tmp_nNF = separaEntreDuasStringsXML(textoXml, "<nNF>", "</nNF>") 'remetente
            tmp_xNome = separaEntreDuasStringsXML(textoXml, "<xNome>", "</xNome>") 'remetente
            tmp_dhEmi = separaEntreDuasStringsXML(textoXml, "<dhEmi>", "</dhEmi>") 'remetente
            tmp_CNPJ = separaEntreDuasStringsXML(textoXml, "<CNPJ>", "</CNPJ>") 'remetente
            tmp_CFOP = separaEntreDuasStringsXML(textoXml, "<CFOP>", "</CFOP>") 'remetente
             tmp_dNome = separaEntreDuasStringsXML(textoXml, "<xNome>", "</xNome>") 'destinatário
        Close #1 'fechar ficheiro

Achei algo parecido nesse tópico do amigo Fabio Paes, mas confesso que não tenho entendimento para adaptar à minha necessidade.
https://www.maximoaccess.com/t29919-resolvidoimportar-dados-do-destinatario-da-nf-e-xml#207920

Da forma como está, repete o nome do remetente .

Desde já, agradeço imensamente a ajuda dos caros colegas!

Não cheguei a uma solução