「VBA」StrConv関数で文字列のバイト数を取得するサンプル

2014年6月17日2021年7月27日

書式
LenB(StrConv(文字列,vbFromUnicode))
使用例

Sub funcA()
    Dim nn As String
    nn = "test123"

    Debug.Print LenB(StrConv(nn, vbFromUnicode)) '半角は1バイト
    
    Dim kk As String
    kk = "テスト"

    Debug.Print LenB(StrConv(kk, vbFromUnicode)) '文字列をUnicodeから変換
End Sub

実行結果
7
6