LenBとStrConvを使えばできます。
例えば,フォームにコマンドボタンとテキストボックスがあるとして,
次のようにしてみて下さい。
Private Sub Command1_Click()
Dim CountByte As Long
Dim Moji As String
Moji = Text1.Text
CountByte = LenB(StrConv(Moji, vbFromUnicode))
Print CountByte
End Sub
なお,全角スペースは半角に直してくださいね。
お礼
ご丁寧にありがとうございます。 解決することができました。