Не буду сейчас эксперементировать чтобы дословно написать как все работает, но я использую для чтения функцию GET #n..... после Open For Binary. Удобно тем, что можно указать в какую переменную загружать данные. Если переменную s определить как strings, дать ей значение s=space(50), то при помощи GET мы получим 50 символов, если a as integer, тогда следующим образом только 2 байта и получит число... найдите инфу о GET, возможно этот вариант Вам покажеться удобнее. Так как рядом есть возможность воспользовться PUT по тому же принцыпу, SEEK - для перехода... EOF...

GET #файла, позиция, переменная - чтение из открытого файла в режиме binary или random
PUT #файла, позиция, переменная - запись в открытый файл в режиме binary или random
переменная=Input(количество, #1) - чтение из последней позиции
Seek #файла, позиция - переход к позиции
переменная=LOC(#файла) - возвращает текущую позицию чтения/записи внутри открытого файла
переменная=LOF(#файла) - возвращает размер (в байтах) открытого файла
переменная=FileLen(#файла) - возвращает длину файла в байтах
if EOF(#файла) = true - значит достигунт конец файла. Для закрытия CLOSE #файла

Open "test.bin" For Binary Access Read As #1

Dim Buffer1 As Strings
Buffer1 = Input(300, #1)

Dim Buffer2 As Strings
Buffer2=Space(800)
Get #1, 200, Buffer2

Close #1