VB6.0、LenBでバイト数を取得する

いつも忘れて、先ほども同僚に聞かれて即答出来なかったのでメモ。VB6.0は内部で文字列をユニコード扱いしているため、LenBでバイト数を求めると、小文字半角アルファベットでも2バイトになってしまう。それでは困る人は、以下のイミディエイトウィンドウでの処理結果を見て欲しい。

?lenb("あa")
 4 
?lenb(strconv("あa",vbFromUnicode))
 3 

というわけで、StrConvを使って、vbFromUnicode指定すればバイト数が正しく？取得される。