codice:
Dim nFile as Integer

nFile=FreeFile
open path_file for Output as #nFile

For i=0 To List1.Count -1
    print #nFile, List1.List(i)
next

close #nFile