文字列のバイト数を調べる

#If NETCOREAPP Then
    '.NET Core で Shift_JIS を使用可能にします。
    System.Text.Encoding.RegisterProvider(System.Text.CodePagesEncodingProvider.Instance)
#End If

Dim SJIS As System.Text.Encoding = System.Text.Encoding.GetEncoding("shift_jis")
Dim byteCount As Integer = SJIS.GetByteCount("ABCあ")

Debug.WriteLine(byteCount) '5

→ Debug.WriteLineが表示される場所

メモ：日本で 単に「文字列のバイト数」と言うとき、(伝統的な理由により)ほとんどの場合 Shift_JIS でのバイト数を指していると私は感じます。

Dim UTF8 As System.Text.Encoding = System.Text.Encoding.UTF8
Dim byteCount As Integer = UTF8.GetByteCount("ABCあ")

Debug.WriteLine(byteCount) '6

→ Debug.WriteLineが表示される場所