You can read and write arrays quickly from files using Put and Get. This approach is faster than reading and writing the array one entry at a time:
Dim arr(1 To 100000) As LongDim fnum As Integer fnum = FreeFile Open "C:Tempxxx.dat" For Binary As fnum Put #fnum, , arr Close fnum