Dim F As Integer
Dim strLine As String
Dim strFilename As String
Dim strSuch As String
Dim lngCount As Long
 
<font color=green>' Textdatei</font>
strFilename = "DeineTextdatei.txt"
 
<font color=green>' gesuchter Text</font>
strSuch = "keine Ahnung"
 
<font color=green>' Textdatei öffnen und zeilenweise auslesen
' alle Zeilen, in denen der Suchstring vorkommt in eine
' ListBox schreiben</font>
 
lngCount = 0: List1.Clear
F = FreeFile
Open strFilename For Input As #F
While Not Eof(F)
  <font color=green>' Zeile einlesen</font>
  lngCount = lngCount + 1
  Line Input #F, strLine
 
  <font color=green>' Prüfen, ob Suchstring vorhanden
  ' Groß-/Kleinschreibung ignorieren</font>
  If strLine LIKE "*" & strSuch & "*" Then
    <font color=green>' Gefunden! Ab in die ListBox ;-)</font>
    List1.AddItem "Zeile " & CStr(lngCount) & ": " & strLine
  End If
Wend
Close #F