Dim f As Integer
Dim s As String
Dim sErg As Variant
 
List1.Clear
f = FreeFile
Open "Keine_Ahnung_was_für_Datei" For Input As #f
    Do While Not Eof(f)
          Line Input #f, s
          sErg = Split(s, "|")
          If UBound(sErg) > 1 Then List1.Additem sErg(1)
    Loop
Close #f