Dim ch As Char = ChrW(1094)
        Dim b() As Byte
        Dim c As System.Text.Encoding = System.Text.Encoding.GetEncoding( _
          "ISO-8859-5")
        b = c.GetBytes(ch)
        Debug.WriteLine(Hex(b(0)))

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov