項目

　バイト数を求める

概要

　シフトJisは半角1バイト、全角2バイト。しかしVBAではユニコードなので全角、半角どちらも2バイト。
　StrConv関数で一度シフトJisに変換してからLenBでバイト数を取得できます。

方法

Option Compare Database
Option Explicit

Private Sub bt1_Click()
    
    Dim value As String

    value = "Accessむかむか"
    
    MsgBox value & vbCrLf & _
            "Len=" & Len(value) & vbCrLf & _
            "LenB=" & LenB(value) & vbCrLf & _
            "バイト数=" & LenB(StrConv(value, vbFromUnicode))

End Sub