S-JISの２バイト文字をURLエンコードするには

質問

VBでSJISの2バイト文字をURLエンコードをしたいのですが、適切にエンコードできません。
エンコード規則は「%上位バイトの16進数%下位バイトの16進数」では足りないのでしょうか？

例えば、「指」という文字を巷のエンコードサイトにかけると「%8Ew」という結果になりますが、

Public Sub test()
Dim strTmp As String
strTmp = Format(Hex(Asc("指")), "0000")
MsgBox ("%" & Left(strTmp, 2) & "%" & Right(strTmp, 2))
End Sub

だと「%80%00」になってしまいます。
「%00」は文字列終端コードだそうですが、どんな処理をかけたらよいのでしょうか？
解決法・調べ方等、何でも結構ですので、
ご教授下さいますようよろしくお願いします！

回答No.1

kmb01 · ベストアンサー

エクセルVBAでテストしましたが…

Hex関数が返すのが文字列であるため
Format関数で"0000"しても
strTmpには正しい値が入っていません。

この場合はstrTmp = Hex(Asc("指"))
でいいのでは。
あと指のShiftJISコードは8E77(-29065)のようです。

お礼

早速のご回答、どうもありがとうございます！
ご指摘頂きました通り、Format()が不正でした。

16進表記にした時に0埋めされるようにという意図でした。お恥ずかしい ///
Hex()結果長が4未満なら0を付け足す、といった形にすることにいたします。

エンコードサイトでも、「%8E%77」をデコードしたら無事「指」という結果がでました。
(http://www.tagindex.com/tool/url.html)
「%8Ew」になるのはどういう方式なのでしょう？
IISに「%8Ew」と送ると「指」にデコードされるので、適正なエンコードな筈ですが...

ともあれ、大変助かりました！心からお礼申し上げます。