Excel VBA リファレンス

LenB( str )

Excel では Unicode を使っているため、すべての文字が2バイトとしてカウントされます。
半角文字を１文字としてカウントする場合は strConv で文字コードを変化する必要があります。

文字列処理 / 関数・ステートメント索引（Ｌ）

Option Explicit

'このプロシージャから実行してください。
Sub main()
  Dim strJp As String
  Dim strEg As String
  
  strJp = "エクセル"
  strEg = "Excel"
  
  Debug.Print ("strJp は " & Len(strJp) & "文字です")
  Debug.Print ("strJp は " & LenB(strJp) & "バイトです")
  Debug.Print ("strEg は " & Len(strEg) & "文字です")
  Debug.Print ("strEg は " & LenB(strEg) & "バイトです")

  strEg = StrConv(strEg, vbFromUnicode)

  Debug.Print ("strEg は " & LenB(strEg) & "バイトです")

  '実行後、イミディエイト ウインドウに
  '以下の出力があります
  '
  'strJp は 4文字です
  'strJp は 8バイトです
  'strEg は 5文字です
  'strEg は 10バイトです
  'strEg は 5バイトです
  
  '※Excel では Unicode を使っているため、
  'すべての文字が2バイトとしてカウントされます。
  '半角文字を1バイトとしてカウントするには
  'strConv で文字コードを変換する必要があります。
End Sub

文字列処理 / 関数・ステートメント索引（Ｌ）