Ciao,
se hai gia' risolto il problema di inserire in una matrice tutti i dati, ti rimane la cosa piu
"semplice"

Hai due possibilita' , o usare il filesystem object o la semplice sintasi del metodo "open"
esemp.

Dim linea as string
dim newFileTxt as string
Dim contenuto(3) as string

' /////////// QUESTA SEZIONE E' DI ESEMPIO , TU DOVRESTI USARE IL TUO ARRAY
contenuto(1) = "Filippo"
contenuto(2) = "Di"
contenuto(3) = "Nerviano"
'/////////////////////////////////////////////////////////////////////////////////////////

linea= contenuto(1) & " " & contenuto(2) & " " & contenuto(3)
newFileTxt = App.Path & "\pippo.txt"

Open newFileTxt For Output As #1

Print #1, newFileTxt
Close

Ciao
Filippo