Dim f%, i%, FileName$
FileName = "test.txt" ' som ett exempelnamn
f = FreeFile: i = 0
Open FileName For Output As f
For i = 0 To UBound(ArrayName)
Print #f, ArrayName( i )
Next i
Close f