Excel VBA リファレンス

MidB( str, int1, int2 )

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

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

Option Explicit

'このプロシージャから実行してください。
Sub main()
  Dim strJp As String
  Dim strEg As String
  
  strJp = "エクセル"
  strEg = "Excel"
  
  Debug.Print (Mid(strJp, 3, 2))
  Debug.Print (MidB(strJp, 3, 2))
  Debug.Print (Mid(strEg, 3, 2))
  Debug.Print (MidB(strEg, 3, 2))

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

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