Экспорт каждого результата A Do L oop в текстовый файл

Question

У меня есть диапазон ячеек (A1: C13), как показано на рисунке.

Я написал код для поиска ячеек в этом диапазоне, которые содержат строку «Node», а затем извлекли содержимое из ячейка прямо под соответствующей ячейкой. Код сообщает результаты в формате Узел XX = XXX в столбце E того же листа.

Моя цель - напрямую экспортировать результаты моего l oop в текстовый файл, как показано на рисунке. Я искал на форумах решение.

Изображение моего диапазона поиска, текущих результатов и ожидаемых результатов:

Sub Find_Nodes_text()
    Dim CompId As Range
    Dim i As Byte
    Dim FirstMatch As Variant
    Dim TXT As String

    Range("E:E").ClearContents
    i = 1

    Set CompId = Range("A1:C13").Find(what:="Node", LookIn:=xlValues, lookat:=xlPart)
    If Not CompId Is Nothing Then
        TXT = CompId.Value & " = " & CompId.Offset(1, 0).Value
        Range("E" & i).Value = TXT
        FirstMatch = CompId.Address
        Do
            Set CompId = Range("A1:C13").FindNext(CompId)
            If CompId.Address = FirstMatch Then Exit Do
            i = i + 1
            TXT = CompId.Value & " = " & CompId.Offset(1, 0).Value
            Range("E" & i).Value = TXT
        Loop
    Else
    MsgBox "No Nodes Found!"
    End If
End Sub