'Liste Speichern
Private Sub Command3_Click()
Dim F As Integer
  On Error Resume Next
  With CommonDialog2
    .CancelError = True
    .Flags = cdlOFNOverwritePrompt
    .Filter = "ACX List file (*.fls)|*.fls"
    .ShowSave
  If .FileName <> "" Then
      F = FreeFile
  Open .FileName For Output As #F
  For i = 0 To List1.ListCount - 1
    Print #F, List1.List(i)
  Next i
  Close #F
  End If
  End With
End Sub