Ответ не так сложен как кажется на первый взгляд.

    Open "file.ext" for binary access read as #1
    dim r (500000) as byte
    get #1, 500000, r
    close #1