Option Explicit
 
Private Sub Command1_Click()
    Dim s As String
    Dim ff As Integer
 
    s = Text1
    If s = vbNullString Then
        MsgBox "Geben Sie einen Text ein !", vbInformation
        Text1.SetFocus
        Exit Sub
    End If
 
    List1.AddItem s
    Text1 = vbNullString
    ff = FreeFile
    Open App.Path + "\Test.txt" For Append As #ff
    Print #ff, s
    Close ff
    Text1.SetFocus
End Sub
 
Private Sub Command2_Click()
    Dim i As Long
 
    For i = 0 To List1.ListCount - 1
        If List1.Selected(i) Then
            List1.RemoveItem (i)
            Exit Sub
        End If
    Next i
    MsgBox "Kein Eintrag selektiert !", vbInformation
    Text1.SetFocus
End Sub
 
Private Sub Command3_Click()
    List1.Clear
 
    Kill App.Path + "\Test.txt"
    Text1.SetFocus
End Sub
 
Private Sub Form_Load()
    Dim ff As Integer
    Dim s As String
 
    On Error Resume Next
    ff = FreeFile
    Open App.Path + "\Test.txt" For Input As #ff
    If Err.Number > 0 Then
        Open App.Path + "\Test.txt" For Output As #ff
        Close #ff
        ff = FreeFile
        Open App.Path + "\Test.txt" For Input As #ff
    End If
    On Error GoTo 0
    Do While Not EOF(ff)
    Input #ff, s
    List1.AddItem s
    Loop
    Close ff
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1