バイナリデータ(String)を1ByteずつHexに変換 (ID:78499)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 バイナリファイルに 01 00 03 8F 01 00 00 10・・・・ と入っています Dim buf As String それを Get #1,, buf で読み込んで 1Byteずつ Hexコードとして表示したいのですが 処理としては for i = 1 to len(buf) Debug.Print Hex(Asc(Mid(buf, i, 1))) next i 8Fと次の01 がくっついて 01 00 03 8145 00 00 10と表示されてしまいます なぜ上位ビットが立つと化けてしまうのでしょうか？ バイト配列でGetすれば問題は無いのですが Stringの可変長なので、Stringとして処理したいのです。 色々調べてみたのですが、どうしても分かりません。 是非対処方法を教えてください。