文字列のバイト長を求める

Imports System
Imports System.Text

Module Module1

    Sub Main()

        Dim text As String
        Dim source() As Byte
        Dim encoded() As Byte
        Dim destEncoding As Encoding

        ' 変換される文字列
        text = "ABCあいう亜井宇"

        ' 文字列をバイト配列に変換
        source = Encoding.Unicode.GetBytes(text)

        ' エンコーディングを取得 (シフトJISコードページ)
        destEncoding = Encoding.GetEncoding(932)

        ' コードページをUnicodeからシフトJISに変換
        encoded = Encoding.Convert(Encoding.Unicode, destEncoding, source)

        Console.WriteLine("文字列: {0}", text)
        Console.WriteLine("文字列の長さ: {0}", text.Length)
        Console.WriteLine("文字列のバイト長: {0}", encoded.Length)

    End Sub

End Module

using System;
using System.Text;

namespace CalcStringByteLength
{
    class Class1
    {
        [STAThread]
        static void Main(string[] args)
        {
            string text;
            byte[] source;
            byte[] encoded;
            Encoding destEncoding;

            // 変換される文字列
            text = "ABCあいう亜井宇";

            // 文字列をバイト配列に変換
            source = Encoding.Unicode.GetBytes( text );

            // エンコーディングを取得 (シフトJISコードページ)
            destEncoding = Encoding.GetEncoding( 932 );

            // コードページをUnicodeからシフトJISに変換
            encoded = Encoding.Convert( Encoding.Unicode, destEncoding, source );

            Console.WriteLine( "文字列: {0}", text );
            Console.WriteLine( "文字列の長さ: {0}", text.Length );
            Console.WriteLine( "文字列のバイト長: {0}", encoded.Length );
        }
    }
}