Private Sub Command1_Click()
 
'Variablen deklarieren
Dim Data_String As String
Dim First_Stop As Integer
Dim Next_Stop As Integer
 
'Dateinamen festlegen
Const File_Name = "C:TEMPMAIL.DAT"
 
'Datei öffnen Zeile für Zeile einlesen
Open File_Name For Input As #1
Do Until EOF(1)
    Line Input #1, Data_String
 
    'Position des ersten Trennzeichen ermitteln
    First_Stop = InStr(1, Data_String, "|") + 1
 
    'Position des nächsten Trennzeichens ermitteln
    Next_Stop = InStr(First_Stop, Data_String, "|")
 
    'Text zwischen den beiden Trenntzeichen in die ListBox einfügen
    List1.AddItem Mid(Data_String, First_Stop, Next_Stop - First_Stop)
Loop
Close #1
 
End Sub