codice:
dim i as integer
open "c:\lista.txt" for binary as #1
   for i = 0 to list1.listcount -1
      put #1 ,, list1.list(i) & vbcrlf
   next i
close