Private Sub btn_save_Click() 
  Dim F As Integer 
  Dim I As Integer
  Dim sFilename As String
 
  sFilename = App.Path & "\" & Format$(Now, "yyyy-mm-dd")
  F = FreeFile 
  Open sFilename For Output As #F 
  For I = 0 To artikel.ListCunt - 1
    Print #F, artikel.List(I)
  Next I
  Close #F 
End Sub