Найти определенное слово в тексте и записать все найденные значения в другой файл - VB

Формулировка задачи:

Есть txt файл со списком телефонов, где записаны телефон 8919... и т.д. Ищем слово "телефон" в тексте, далее смотрим значение текста (номер телефона) после слова телефон "+7" или "8" then ставлю счетчик i=i+1 все вычитывает правильно если ставлю res = Mid(Stri$, 43, 12) вытаскивает(записывает) только один телефон и все как сделать чтоб вытащил(записал) ВСЕ номера из списка?

Dim i As Long
Dim j As Long
fi% = FreeFile
   Open "d:\report.txt" For Input As #fi%
 i = 0
 k = 0
 
  Do Until EOF(fi%)
      Line Input #fi%, Stri$
      Stri$ = Trim$(Stri$)
      Words = Split(Stri$, " ")
      
      For j = 0 To UBound(Words, 1)
           If CStr(Words(j)) = "телефон" Then If InStr(1, Stri$, "+7", 1) Or InStr(1, Stri$, "8", 1) Then res = Mid(Stri$, 43, 12)
           
      Next j
  Loop
   Close fi%
 Open "d:\file.txt" For Output As #1
 Print #1, res
      Close #1
 End Sub

причем записывается последний телефон в списке, как будто бы переписывает все значения и оставляет только последнее

Решение задачи: «Найти определенное слово в тексте и записать все найденные значения в другой файл»

textual
                            Листинг программы 
                        
                            res = res & vbcrlf & Mid(Stri$, 43, 12)