Public oFSO As New FileSystemObject
 
Private Sub Command1_Click()
    Dim f As Integer
    Dim fileok As Boolean
    fileok = oFSO.FileExists("C:\text.txt")
    If fileok = True Then
        f = FreeFile
        Open "C:\text.txt" For Append As #f
        Print #f, Text1
        Close (f)
    Else
        f = FreeFile
        Open "C:\text.txt" For Output As #f
        Print #f, Text1
        Close (f)
    End If
End Sub
 
Private Sub Command2_Click()
    Dim x As String
    '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