ii = ""
      Open DateFile For Input As # 2  'Открываем файл для чтения
      Do While ii <> IP_Addr
       Line Input # 2 , i
       ii = Left(i, InStr(i, ";") -  1 )
       'Debug.Print ("ii равно: " & ii)
      Loop
      Close # 2 

Do Until EOF( 2 )

Option Explicit
Dim i As String
Dim k As Byte


Private Sub Form_Load()
k =  1 
Open App.Path & "\test.txt" For Input As # 1  'Открываем файл для чтения
 For k =  1  To  2 
  Debug.Print "цикл N " & k
  
      Do Until EOF( 1 )
       Line Input # 1 , i
       Debug.Print (i)
       If i = "3" Then
       Debug.Print "test true"
       Exit Do
       End If
      Loop
  
 Next k
Close # 1 
'End
End Sub

цикл N  1 
 1 
 2 
 3 
test true
цикл N  2 
 4 
 5 
 6 
 7 
 8 
 9 

Private Sub Form_Load()
k =  1 
For k =  1  To  2 
 Debug.Print "цикл N " & k
 Open App.Path & "\test.txt" For Input As # 1  'Открываем файл для чтения
  
      Do Until EOF( 1 )
       Line Input # 1 , i
       Debug.Print (i)
       If i = "3" Then
       Debug.Print "test true"
       Exit Do
       End If
      Loop
  
 Close # 1 
Next k
'End
End Sub

цикл N  1 
 1 
 2 
 3 
test true
цикл N  2 
 1 
 2 
 3 
test true

If i = "3"

Open App.Path & "\test.txt" For Input As # 1  'Открываем файл для чтения
For k =  1  To  2 
  Seek # 1 ,  1