Private Sub Form_Load()
 
Dim ff As Integer
Dim Datei As String
Dim Zeile As Integer
Dim Zeileninhalt As String
 
ff = FreeFile()
 
Datei = "J:\punktespeicher.txt"
 
Open Datei For Input As ff <---Hier Fehler
Do While Not EOF(ff)
Line Input #ff, Zeileninhalt
List1.AddItem (Zeileninhalt)
Loop
Close ff
 
 
End Sub