title: Error reading UInt16 from BinaryReader
body: <p>Why does this work</p>
  
  <pre><code>Dim mem As New MemoryStream()
  Dim bin As New BinaryWriter(mem)
  bin.Write(CUShort(1000))
  Dim read As New BinaryReader(New MemoryStream(mem.ToArray))
  MsgBox(read.ReadInt16)
  </code></pre>
  
  <p>The message box give me 1000 which is right. Then I try to use this</p>
  
  <pre><code>Dim mem As New MemoryStream()
  Dim bin As New BinaryWriter(mem)
  bin.Write(CUShort(1000))
  Dim s As String = ASCII.GetString(mem.ToArray)
  Dim read As New BinaryReader(New MemoryStream(ASCII.GetBytes(s)))
  MsgBox(read.ReadInt16)
  </code></pre>
  
  <p>It gives me 831 which is incorrect. Now I try it with Unicode encoding. It works. But I want to use ASCII. Why is this, and what am I doing wrong?</p>