Reading/Saving binary data

[Rasm]

Below is my code (somehow the code tags are gone - so sorry-cannot post using code tags). I open the source file(#2) as a binary file and the destination file (#1) for random access. Next I do some large loops reading 4 byte single values from the source file and then save them in the destination file - for every oberservation (iix) - I have 1100 values each 4 bytes to read. As you can see the 1100 values that I read for each of the iix loop is consequtive - so is there a way I read the 1100 byte single values in a single operation and also store them in a single operation. The current loop is quite slow.

For iix = 0 To 20000
        AAXdouble = ThisWorkbook.Worksheets("TempSample").Cells(iix, ColSpectraPosition)
        For iiix = 0 To 9999
            Get #2, Adouble, Asingle
            Put #1, AXdouble, Asingle
            Adouble = Adouble + 4
            AXdouble = AXdouble + 4
        Next iiix
 Next iix