Private Sub Form_Load()
ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Name / Vorname"
ListView1.ColumnHeaders.Add , , "Telefon"
 
Dim lstItem As ListItem
Dim strX, strY As String
    Open App.Path & "\" & "test.txt" For Input As #1
    Do Until EOF(1)
    Input #1, strX, strY
              Set lstItem = ListView1.ListItems.Add(, , strX)
              lstItem.SubItems(1) = strY
    Loop
    Close #1
 
End Sub

Laufzeitfheler 62; Einlesen hinter Dateiende