[VB.net]全角半角文字列をバイト数で切り出し！文字数取得についても

Dim originalString As String = "あいうえおABC123"

Dim charCount As Integer = originalString.Length
Console.WriteLine($"文字列の文字数: {charCount}")

Dim originalString As String = "あいうえおABC123" 
Dim encoding As Encoding = Encoding.UTF8 ' 任意のエンコーディングを指定

Dim byteCount As Integer = encoding.GetByteCount(originalString)
Console.WriteLine($"文字列のバイト数: {byteCount}")

Imports System.Text

Module StringExtensions
  
    Public Function SubstringByBytes(original As String, startIndex As Integer, byteLength As Integer) As String
        ' 1. 文字列を指定したエンコーディングでバイト配列に変換
        Dim encoding As Encoding = Encoding.UTF8 ' 任意のエンコーディングを指定
        Dim bytes As Byte() = encoding.GetBytes(original)

        ' 2. 開始位置がバイト数を超えている場合は空文字列を返す
        If startIndex >= bytes.Length Then
            Return String.Empty
        End If

        ' 3. バイト数を指定して切り出し
        Dim truncatedBytes As Byte() = bytes.Skip(startIndex).Take(byteLength).ToArray()

        ' 4. バイト配列を文字列に変換して返す
        Return encoding.GetString(truncatedBytes)
    End Function
End Module

'------------------------------------------------------------------------------------------
' 利用例
Dim originalString As String = "あいうえおABC123"
Dim startIndex As Integer = 6 ' 開始位置（0から始まるインデックス）
Dim byteLength As Integer = 10 ' 切り出すバイト数

Dim subStringByBytes As String = originalString.SubstringByBytes(startIndex, byteLength)
Console.WriteLine(subStringByBytes)
'------------------------------------------------------------------------------------------