Bestimmte Zeile in einer Datei suchen mit Procedur statt Funktion
Option Explicit
 
Private Sub Command1_Click()
  txt_ReadLine "d:\Programmierung\Datei.txt", Text2.Text
End Sub
' Lesen einer bestimmten Zeile einer Textdatei
' sFilename:  vollständiger Dateiname mit Pfad
' LineToRead: Zeile in der, der erste Suchstring vorkommt
' =========================================================
Public Sub txt_ReadLine(ByVal sFileName As String, _
  LineToRead As String)
  Dim FNr As Integer
  Dim sLine As String
  Dim lRow As Long
 
  lRow = 0
  ' Existiert die Datei ?
  If Dir$(sFileName) <> "" Then
    ' Datei zum Lesen öffnen
    FNr = FreeFile
    Open sFileName For Input As #FNr
    ' Solange einlesen, bis entweder Dateiende
    ' oder gewünschte Suchstring gefunden
    Do
      Line Input #FNr, sLine
      If InStr(1, sLine, LineToRead) > 0 Then
        Text1.Text = "Zeile " & lRow & " " & sLine
      End If
      lRow = lRow + 1
    Loop Until EOF(FNr)
    Close #FNr
  End If
 
  ' Dateiende wurde frühzeitig erreicht,
  ' oder Datei war nicht vorhanden
  If Text1.Text = "" Then
    Text1.Text = "Eintrag nicht gefunden !"
  End If
End Sub