初心者で申し訳ない。バイナリ読み出しに関する質問です。

get文でバイナリファイルからintegerで読み出しました。
2バイトずつ読んでると思います。
ところが出力を見ると「00×01」を格納された値が1ではなく256になっています。
つまり、「00×01」を「01×00」と読んでいるわけです。

vbではbyte単位で読んで、自分でひっくり返すしかないのでしょうか
自分の読み方が何かおかしいのでしょうか？
コードは以下のとおりです。

dim n as Long
dim a() as integer
dim fl as string

fl="c:\temp\test.a"
Open fl For Binary As #1

Do Until EOF(1)
n = n + 1
Get #1, , a(n)
Loop
close #1

fl="c:\temp\test_res.a"
Open fl For Output As #1

　For i=1 to n
Write #1,a(i)
Next i
close #1