Dim buffer (1 to 1000) As Byte
Dim numFile
numFile = FreeFile
Open "patapim.file" For Random as #numfile Len=Len(buffer)


So that you can read with a buffer of 1000 bytes.
It's great knowing Quick Basic!