Jede Zeile einer Textdatei bis zum Trennzeichen durchsuchen

Hallo an alle,

Ich möchte mit VBA eine 50MB große Textdatei nach einer Zeichenkette durchsuchen und einige Begriffe aus gefundener Zeile auslesen.
Dazu habe ich schon einen Algorithmus gefunden: siehe Suchmaschine
Dieses Programm funktioniert schon sehr gut und schnell.

Nun hat meine Textdatei folgende Form:
D.h. jede Spalte wird mit "|" abgetrennt.

Der Algorithmus durchsucht jede Zeile von oben nach unten und schreibt die Zeile, wo der Suchbegriff steht, in eine Listbox ein.

Meine frage ist, wie kann ich den Quellcode so ändern, dass das Programm nur die erste "Spalte" der Textdatei durchsucht - nur bis zum ersten Trennzeichen "|"?
Soll aber, wie vorher, die ganze Zeile ausgeben.


Mit freundlichen Grüßen

  dim x() as String
  x = Split(Zeile, "|")  
  Spalte1 = x(0)

        For x = 0 To UBound(Zeilen) - 1
            If x < 32736 Then
                List1.AddItem Split(Zeilen(x), "|")(0)  
            Else
                Call MsgBox("ListBox kann nicht mehr Einträge fassen!")  
                Exit For
            End If
        Next x

If Left(Zeilen(x), Len(Suchbegriff)+1) = "Suchbegriff|" Then

        For x = 0 To UBound(Zeilen) - 1
            If x < 32736 Then
                If Split(Zeilen(x), "|")(0) = s Then  
                   List1.AddItem Zeilen(x)
                end if
            Else
                Call MsgBox("ListBox kann nicht mehr Einträge fassen!")  
                Exit For
            End If
        Next x