WriteQuickArray

Dim arr(1 To 100000) As Long
Dim fnum As Integer
fnum = FreeFile
Open "C:\Temp\xxx.dat" For Binary As fnum
Put #fnum, , arr
Close fnum
You can read and write arrays quickly from files using Put
and Get.

This is much faster than reading and writing the array one
entry at a time.