Private Sub Command2_Click()
    Dim x As String
    'Liste leeren:
    List1.clear
    'Einlesen:
    f = FreeFile
 
    Open "C:\text.txt" For Input As #f
    While Not EOF(f)
        Line Input #f, x
        List1.AddItem x
    Wend
    Close (f)
End Sub

mfG.
Stephan