Private Sub Form_Load()
    Dim File$, Line$, Arr$(), SP$
    Dim ff&, i&
    Dim Ltm As ListItem
    SP = "|" 'Trenner
    File = App.Path & "\Mangel.txt"
    ff = FreeFile
    Dim nCount As Long
   'Listview einrichten
      With lvwListView1
        .ColumnHeaders.Clear
        .ListItems.Clear
        .View = 3
     End With
     'Einlesen
  Open File For Input As #ff
  Do
  nCount = 0
    Line Input #ff, Line
    Arr() = Split(Line, SP)
'    If Line = "" Then
'    nCount = nCount + 1
'    Line(nCount) = Arr()
'    End If
 
    ' in ListView einfügen
    Set Ltm = lvwListView1.ListItems.Add(, , Arr(0))
    Ltm.SubItems(1) = Arr(1)
  Loop Until EOF(ff)
  Close #ff
End Sub