Using MStream As New MemoryStream()
Using BWriter As New BinaryWriter(MStream)
BWriter.Write(CUShort(1000))
Dim Bytes As Byte() = MStream.ToArray()
Console.WriteLine("Original bytes: {{{0}}}", String.Join(", ", Bytes))
Dim ASCIIStr As String = Encoding.ASCII.GetString(Bytes)
Dim UnicodeStr As String = Encoding.Unicode.GetString(Bytes)
Dim ASCIIBytes As Byte() = Encoding.ASCII.GetBytes(ASCIIstr)
Dim UnicodeBytes As Byte() = Encoding.Unicode.GetBytes(UnicodeStr)
Console.WriteLine("ASCII: ""{0}"" {{{1}}}", ASCIIStr, String.Join(", ", ASCIIBytes))
Console.WriteLine("Unicode: ""{0}"" {{{1}}}", UnicodeStr, String.Join(", ", UnicodeBytes))