Dim enc As System.Text.Encoding = System.Text.Encoding.Unicode
   Dim bytes1() As Byte
   Dim bytes2() As Byte
   Dim index As Integer = -1
 
   Do
       index += 1
 
       bytes1 = enc.GetBytes(index.ToString)  'Encoder
       bytes2 = BitConverter.GetBytes(AscW(index.ToString)) 'AscW
 
       If bytes1(0) <> bytes2(0) Then Stop
       If bytes1(1) <> bytes2(1) Then Stop
   Loop While Index < UShort.maxvalue