テキストボックスに入力されているバイト数

質問

テキストボックスに入力されているバイト数（文字数ではない）を取得するにはどうしたらいいのでしょうか？

回答No.1

Caryo_t · ベストアンサー

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

なお，全角スペースは半角に直してくださいね。

お礼

ご丁寧にありがとうございます。
解決することができました。