Imports System.TextModule Module1 Sub Main() Dim a As Encoding = Encoding.ASCII Dim u As Encoding = Encoding.Unicode Debug.Print(u.GetByteCount("c")) Dim a1 As Integer = a.GetByteCount("c") Debug.Print(a1) Dim b1 As Integer = u.GetByteCount(a.GetChars(u.GetBytes("c"))) Debug.Print(b1) End SubEnd Module
Dim a As Encoding = Encoding.ASCII
Dim u As Encoding = Encoding.Unicode Debug.Print(u.GetByteCount("c")) Dim a1 As Integer = a.GetByteCount("c")
Debug.Print(a1) Dim b1 As Integer = u.GetByteCount(a.GetChars(u.GetBytes("c")))
Debug.Print(b1)
End SubEnd Module