Dim enc As System.Text.Encoding = System.Text.Encoding.Unicode
Dim b(255) As Byte
For x As Int32 = 0 To 255
    b(x) = x
Next
Dim s As String = enc.GetString(b)
b = enc.GetBytes(s)
For x As Int32 = 0 To 255
    If b(x) <> x Then ListBox1.Items.Add(x & " -> " & b(x))
Next

--
while (!asleep()) sheep++;