BASICマクロでGETとPUTがエラーを起こす

BASICマクロでバイナリファイルを開き、バイナリデーターをGETしようとすると、
「BASIC ランタイムエラー.デバイス I/O エラー。」のエラーを起こします。

バイナリではなくなりますが、Inputでは問題なく読み込みます。

ご教授お願い致します。

・
・
・
Open aFile For Binary Access Read Shared As #iNumber Len=1
While not eof(iNumber)
  Seek #iNumber,1
  Get #iNumber, ,sText '(sTextはVariant宣言です。)
・
・
・

sTextはVariant

それが原因です。

なお、エンディアンがどっちかは調べてない