はじめまして。VBの初心者で、不慣れな者ですので、どなたかお助け願います。

データをバイナリファイルとして読み込み、漢字の16進コード（80A1等）のみを別リストに
まとめたいのですが、バイナリデータの扱い方で不明な点がありますので、どなたか分かればで
お教え願います。（初心者ですので、できるだけ分かりやすくお教え願います。）
開発環境はVB6.0です。

本に載っていたのを改良して試したのが次のですが、MSGBOXには希望する80、A1などが表示されません。
表示させる場合などはそのままでは無理なのでしょうか？

    Dim buf(1)  As Byte
    Open "c:\test.txt" For Binary As #1
    Get #1, , buf
    Do Until EOF(1)    
        i = i + 1                
        If i < 30 Then
            MsgBox buf　←←←　16進コードで表示等をしたい。
        End If
        Get #1, , buf
    Loop
    Close #1
    Exit Sub

説明が足りない場合は補足を入れますので、どなたかお教え願います。

追記させて頂きますが、今回のデータはＪＥＦコードの漢字データをＳＪＩＳに変換するときに、
ＪＥＦコードの拡張漢字と非拡張漢字エリアの洗い出しを目的に漢字コードの洗い出しをしようと
思ってＶＢを作成しています。バイナリの表示にはあまり関係ないかもしれませんが、一応追記させて頂きました。

>     Dim buf(1)  As Byte
これだと、buf(0) と buf(1) の 2バイトの領域を意味しますが、それでよいのですか?

>             MsgBox buf　←←←　16進コードで表示等をしたい。
MsgBox Hex(buf(0)) & vbNewLine  & Hex(buf(1))
とか。

さっそくのお返事ありがとうございます。
buf(0)の内容だけでよいので、記入ミスです。
msgboxのほうも表示できました。
勉強不足な自分を助けて頂き、ありがとうございました。



> >     Dim buf(1)  As Byte
> これだと、buf(0) と buf(1) の 2バイトの領域を意味しますが、それでよいのですか?
>
> >             MsgBox buf　←←←　16進コードで表示等をしたい。
> MsgBox Hex(buf(0)) & vbNewLine  & Hex(buf(1))
> とか。