Помощь с циклом

[manula]

Здравствуйте коллеги, возник вопрос, постараюсь в кратце описать, есть текстовый файл в нем есть два реквизита, код и наименование, и книга в ней только код, нужно сравнить коды и присвоить в книге наименование этим кодам, если в случае такой код не был найден в файле переходить к следующему, у меня происходит зацикливание когда такой код не находит, гляньте коллеги.

 Do While Worksheets("Информация").Cells(i, 1) <> ""
    
    cod = Trim(Worksheets("Информация").Cells(i, 1))
    
     Seek #iFile, 1
     Get #iFile, , kprr
      Do While Not EOF(iFile)
         If cod = kprr.kod Then
            Worksheets("Информация").Cells(i, 2) = Trim(kprr.naim): i = i + 1: j = j + 1: Exit Do
         ElseIf cod <> kprr.kod And EOF(iFile) Then ' мне нужно как то вот эту проверку грамотно реализовать, если не нашел код в листе перешел на другой и начал снова сравнение с файлом
         i = i + 1: End If
       Get #iFile, , kprr
      Loop
  If j = k Then MsgBox "Формирование завершено!": Exit Sub
 Loop

[SAS888]

Я бы делал совсем не так.
Прикрепите к сообщению пример книги Exel с листом "Информация" и несколько txt-файлов с данными. Достаточно по несколько строк Можно с "липовыми" данными.