OK, adesso ho capito.
codice:
Dim NomeFileOut As String
Dim Cont As Integer

NomeFileOut = "C:\Prova.txt"
Open NomeFileOut For Output As #1
  For Cont = 0 To File1.ListCount - 1
    Print #1, File1.List(Cont)
  Next Cont
Close #1