Private Sub Command1_Click()
Dim i As Long
Dim FN As Integer
Dim sData As String
Dim sLines() As String
FN = FreeFile
Open Text1.Text For Input As #FN
sData = Input$(LOF(FN), FN) '<-----Hier muss der Fehler sein...
Close #FN
sLines = Split(sData, "")
For i = 0 To UBound(sLines)
List1.AddItem sLines(i)
Next i
End Sub