Hi,
Dim Fnu As Long 'File Number
Open FileName4Array For Binary As Fnu
Put #Fnu, 1, ArrayName() '1 is starting location
'for saving see "PUT" help
Close Fnu
' to read
Open FileName$ For Binary As Fnu
Get #Fnu, 1, AnyArrayName()
Close #Fnu
'Now "1"...