Boa tarde!!

E naão entendi muto bem, mas faça os testes.

Sub AleVBA_11516()
    Dim a, i As Long, e
    a = Range("a1").CurrentRegion.Columns("A:B").Value
    With CreateObject("Scripting.Dictionary")
        For i = 2 To UBound(a, 1)
            .Item(a(i, 2)) = .Item(a(i, 2)) & vbCrLf & a(i, 1)
        Next
        For Each e In .keys
            Open ThisWorkbook.Path & "" & e & ".txt" For Output As #1
                Print #1, Mid$(.Item(e), 3)
            Close #1
        Next
    End With
End Sub

Será salvo em um local padrão, talvez (Downloads), ou procure por NFE.ConsultarNFe(25101209188305000143550010000055921000055926) e achará o restante dos arqquivos criados
Att

Obrigado pela resposta!!! No entanto precisaria que fosse realizado a seguinte rotina:

1. O nome do arquivo deve ser sempre ENTNFE.txt
2. Aguardasse um intervalo de 2 segundo para pegar o valor da segunda linha e gerar o TXT e assim por diante...

Dim Timer
Const IntervaloSegundos = 2 '2 segundos
Sub Iniciar()
Timer = Now + TimeSerial(0, 0, IntervaloSegundos)
Application.OnTime EarliestTime:=Timer, Procedure:="Procedure", schedule:=True
End Sub
Sub Parar()
On Error Resume Next
Application.OnTime EarliestTime:=Timer, Procedure:="Procedure", schedule:=False
End Sub
 
 
Sub Procedure()
Call Iniciar
Call XTo_txt1
    
End Sub
Sub XTo_txt1()
On Error Resume Next
Dim ENTNFE As Long
Dim UltLinha As Integer
Dim TotalLinhas As Long

UltLinha = Sheets("Plan1").Range("I1").Value

ENTNFE = FreeFile

Open "C:ACBrNFeMonitorENTNFE.txt" For Output As ENTNFE

TotalLinhas = Sheets("Plan1").Cells(Rows.Count, 2).End(xlUp).Row

For i = UltLinha To UltLinha
    If Cells(i, 2).Value = "" Then
       Sheets("Plan1").Range("I1").Value = 2
       Parar
     Else
       Print #ENTNFE, Cells(i, 2).Value
       Sheets("Plan1").Range("C1").Value = Cells(i, 2).Value
       Sheets("Plan1").Range("I1").Value = Sheets("Plan1").Range("I1").Value + 1
     End If
Next i

Close #ENTNFE

End Sub

Não esquecer de dar permissão de leitura e escrita na pasta do acbrmonitor na unidade c: , só acho que o timeout esta "justo" demais 2 segundos não é muito pouco?
Você esta fazendo Manifestação do destinatário?

Valeu!!! Era simplesmente o que eu precisava! Os 2 segundos é +/- o tempo que sistema demora pra processar o comando e ficar pronto pra receber outro.

Recebo muitos XML's de Nota Fiscal Eletrônica de fornecedores. No entanto já verifiquei que alguns XML's, estão cancelados pelo emitente. Seria inviável consultar nota a nota. Com essa rotina, o "ACBrNFeMonitor" faz a consulta da situação pra mim.Talvez seja até um pouco amador, mas atende muito minha necessidade.

Obrigado pela ajuda!!!