Dim c As Char = "A"c
Dim b() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(c)
MessageBox.Show(b(0).tostring)
MessageBox.Show(Asc("A"))
Dim b() As Byte = Encoding.ASCII.GetBytes("A".ToCharArray)
Dim s() As Byte = Encoding.ASCII.Convert(System.Text.Encoding.UTF8, System.Text.Encoding.ASCII, b)
MessageBox.Show(s(0))