>文字列をshift-jisにコード変換してからバイト数を数えればいいかと。
>この考え方はVB6の時代から変わりません。
この考え方は、危険です。
’
Shift_JIS　一つとっても、亜種があり（ＭＳ、ＩＢＭ、Ａｐｐｌｅなど、汎用機のフォントはメーカ亜種の塊）
油断していると、嵌められます。
古い処では、文字コードとフォントの相対の変更で、籠、篭のコードが変更になったり、
’
９８時代の４分１角、２分１角まで考えると、悪夢です。
’
ＵＴＦ、ＵＮＩＣＯＤＥには、Ｓｈｉｆｔ－ＪＩＳに対応しない
文字コードがあり、単純な例では、
Windowsのファイル名としては扱えても、
ＶＢ６、ＶＢＡ６／７のＤＩＲ関数では、問題を起こす文字があったりします。
⇒ここ暫くは、悩まされないが、出ると拒否しているのが、外字対応です。
’
私の場合は、現状では、半角カナは使用禁止としています。（２分１角は当然禁止）
―　‐　－　なんて Ｓｈｉｆｔ－ＪＩＳ では、ろくに区別しなかったけれど、今では区別します。