Shift-Jisの2バイトコードを取得するには？ (ID:142551)

名前

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

本文 こんばんは。 任意の全角文字のShift-JISコード（2バイト）を取得したいと思います。 例えば、"亜"という漢字のShift-JISコードは"889F"だと思いますが、単純にAsc関数を使用すると、 Asc("亜") → -30561 Hex(Asc("亜")) → "FFFF889F" となり、"FFFF"が余計についてきます。 この右4桁を取り出せば目的の"亜"という漢字のShift-JISコード（"889F"）を得ることができるのですが、 もっとシンプルに"亜"という漢字のShift-JISコード（"889F"）を取得できる方法はないでしょうか？ というのも、Chr関数で文字コードを文字に変換するとき、 Chr(&HFFFF889F) → "亜" Chr(&H889F) → "亜" となり、違う数字なのにも関わらず同じ漢字が得られるため、上記方法で本当にいいのかどうか不安であり、 他にちゃんとした方法があるのではないかという疑問を感じたためです。 使用しているのはVB2008(Express)です。 どうぞアドバイスをお願いいたします。