Замена неизвестных значений

Private Sub Form_Load()
   Dim Stroka$, tmp$
   Dim Counter As Long
   
   
   Open "C:\2.txt" For Output As #2                   'открываем файл для вывода "C:\2.txt"
   
   Open "C:\1.txt" For Input As #1                    'открываем для чтения "C:\1.txt"
      Do
         Line Input #1, Stroka$                       'считываем строку из файла в переменную Stroka$
         If Counter <= 100 Then                       'правок будет 100, поэтому создаём цикл до 100
            If InStr(Stroka$, "**") Then              'если в строке есть символы "**", то...
               tmp$ = Trim$(Str$(Counter))            '...делаем времянку...
               If Counter < 10 Then tmp$ = "0" & tmp$ '...на случай, если она < 10, чтобы дописать впереди нуль
               Stroka$ = Replace(Stroka$, "**", tmp$) 'замещаем две звездочки на времянку
                                                      'записываем результат либо:
               Print #2, Stroka$                      '                          - в файл
               List1.AddItem Stroka$                  '                          - элемент управления ListBox
               Counter = Counter + 1                  'увеличиваем счётчик
             Else                                     'если в строке нет символов "**", то ...
               Print #2, Stroka$                      'пишем в файл строку, даже если она не содержала **
            End If
          Else
            Print #2, Stroka$                         'если сделали 100 правок, то дальше правок не будет
         End If
      Loop Until EOF(1)                               'делаем до тех пор пока не конец файла
   'закрываем файлы
   Close #1
   Close #2
End Sub