Option Explicit
 
Dim intKanal As Integer
Dim strfileline As String

Private Sub Form_Load()
 
intKanal = FreeFile
 
 
Open "C:\Downloads\Kunden.txt" For Input As #intKanal 'öffne Kunden Datei zum 
' Lesen - freie Kanalnummer
 
            Line Input #intKanal, strfileline 'Line in strFileLine
 
        Do Until (EOF(intKanal)) 'Solange das Ende der Datei Kunden nicht 
        ' erreicht ist
            Line Input #intKanal, strfileline 'Ausgabe der Temp Datei in 
            ' strFileLine
            List1.AddItem strfileline
        Loop
 
 
End Sub

Mfg MyD