Определение строк - VB

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

можете сказать что значит мною написанные строки текста?

Private Sub CommandButton1_Click()
Open "C:/Users/user/Desktop/111.txt" For Input As #1
i = 1
Do While Not EOF(1)
Line Input #1, st
If st = x Then
Cells(i, 1) = st
If st = x Then
Cells(j, 1) = st
End If
End If
Loop
End Sub

Решение задачи: «Определение строк»

textual
                            Листинг программы 
                        

                            Private Sub CommandButton1_Click()
  Open "C:/Users/user/Desktop/111.txt" For Input As #1 'открытие файла для чтения
    i = 1                   ' ни одна переменная не объявлена, ну да бог с ними, может они все глобальные
    Do While Not EOF(1)     ' цикл пока выполняется условие "не конец файла"
        Line Input #1, st   ' считывание очередной строки из файла
        If st = x Then      ' если строка равна значению какой-то переменной х, то
           Cells(i, 1) = st ' записать содержимое строки в ячейку А1(запись всегда будет в неё, так как значение i=1 и в этой процедуре нигде больше не изменяется)
           If st = x Then   ' это условие точно такое же как и предыдущее. Зачем оно нужно - не понятно.
               Cells(j, 1) = st ' значение j неизвестно(и не меняется!), поэтому нельзя сказать куда будет писаться
           End If               '
        End If
    Loop
End Sub
                        