半角全角混じりの文字列のバイト数を取得するには？ (ID:110505)

名前

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

本文 環境を書いていませんでした。ごめんなさい。 Windows XP VBScript 5.6 です。 とりあえずできました。有難うございます。 ↓のようにしました。Option Explicitも書いていなかったです。 Option Explicit Dim bobj Set bobj = CreateObject("basp21") Dim bbb bbb = "aaa" MsgBox LenB(bobj.KConv(bbb, 1, 5)) 変換前の漢字コードで UCS2にするかUTF-8にするか良く分からなく UTF-8にしたのですが、 とりあえず解決しました。