Private Sub cmdAnlegen_Click() 
Dim UserEingabe As String
Dim Index As Long
Dim i As Long
UserEingabe = InputBox("Clubname und Spiel-Datum angeben.", "Neue Spielrunde" & _
  "anlegen")
 
If Not ChkListDubletten(List1.hWnd, UserEingabe, Index) Then
  List1.AddItem UserEingabe
  List1.Listindex = List1.ListCount - 1 ' letzten Eintrag markieren
Else
  List1.Listindex = Index 
  MsgBox "Eintrag schon vorhanden !" & vbCrLf & _
         "Siehe Index " & Index & " - " & List1.List(Index) & vbCrLf & _
         "Es wurde kein Eintrag zur Listbox hinzugefügt.", _
         vbExclamation, "Achtung: Doppelte Eingabe"
End If
 
Open App.PATH + "\Club.txt" For Append As #1
     For i = 0 To List1.ListCount - 1
     Print #1, List1.List(i) & " " & "vom" & " " & Date
Next
Close #1

Open App.PATH + "\Club.txt" For Append As #1
For i = 0 To List1.ListCount - 1
  Print #1, List1.List(i) & " " & "vom" & " " & Date
Next
Close #1