Handle the KeyPress event. The character in e.KeyChar represents the Unicode character. To get the numeric value, call
Dim codepoint As UInt16
codepoint = Convert.ToUInt16(e.KeyChar)
EDIT: Of course, for a Select Case statement, you can also just write
select case e.keychar
case "A"c
case "B"c
End select
Armin