This code will allow you to save the contents in an array to file.
Dim i, intFile as integer
Dim upper
intFile = FreeFile
Open App.Path & "\filename.txt" for Output As intFile
upper = ubound(yourarray)
i = 0
Do Until i = upper
Print #intFile yourarray(i)
i=i+1
Loop
Close #intFile