Imports System
Imports System.Text
Class DecoderExample
Public Shared Sub Main()
Dim bytes() As Byte = {86, 0, 111, 0, 1, 0, 11, 0, 111, 0, 222, 0, 101, 0}
Dim uniDecoder As Decoder = Encoding.Unicode.GetDecoder()
Dim charCount As Integer = uniDecoder.GetCharCount(bytes, 0, bytes.Length)
Console.WriteLine("{0} characters needed to decode bytes.", charCount)
End Sub
End Class