Decodes a sequence of bytes from the specified byte array
Imports System Imports System.Text Class UnicodeEncodingExample Public Shared Sub Main() Dim chars() As Char Dim bytes() As Byte = {86, 0, 11, 0, 103, 0, 99, 0, 111, 0, 111, 0, 101, 0} Dim uniDecoder As Decoder = Encoding.Unicode.GetDecoder() Dim charCount As Integer = uniDecoder.GetCharCount(bytes, 0, bytes.Length) chars = New Char(charCount - 1) {} Dim charsDecodedCount As Integer = uniDecoder.GetChars(bytes, 0, bytes.Length, chars, 0) Dim c As Char For Each c In chars Console.Write("[{0}]", c) Next c End Sub End Class