<code><font color=green>' Textdatei durchsuchen</font>
Dim F As Integer
Dim sLine As String
Dim sTextFile As String
Dim sSuchText As String
 
sTextFile = "DeineTextdatei.txt"
sSuchText = "gesuchter Text"
 
<font color=green>' Ergebnis - Listbox löschen</font>
With lstErgebnis
  .Clear
 
  <font color=green>' Datei öffnen und zeilenweise auslesen</font>
  F = FreeFile
  Open sTextFile For Input As #F
  While Not Eof(F)
    <font color=green>' Zeile lesen</font>
    Line Input #F, sLine
 
    <font color=green>' Prüfen, ob Suchtext vorhanden
    ' Groß-/Kleinschreibung ignorieren</font>
    If sLine LIKE '*' & sSuchText & '*' Then
      <font color=green>' Textzeile der Ergebnisliste hinzufügen</font>
      .AddItem sLine
    End If
  Wend
  Close #F
End With
 
 
<font color=green>' Weiteres Beispiel: ListBox duchsuchen</font>
Dim sSuchText As String
Dim I As Integer
 
sSuchText = "gesuchter Text"
 
<font color=green>' Ergebnis - Listbox löschen</font>
With lstErgebnis
  .Clear
 
  <font color=green>' Original-Listbox durchsuchen</font>
  For I = 0 To lstQuelle.ListCount - 1
    <font color=green>' Prüfen, ob Suchtext vorhanden
    ' Groß-/Kleinschreibung ignorieren</font>
    If lstQuelle.List(I) LIKE '*' & sSuchText & '*' Then
      <font color=green>' Textzeile der Ergebnisliste hinzufügen</font>
      .AddItem sLine
    End If
  Wend
End With</code>