Maybe !
VB Code:
  1. Private Sub TextBox1_KeyUp(ByVal sender As Object, ByVal e As
  2. System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
  3.         MessageBox.Show(Hex(e.KeyValue).ToString)
  4.     End Sub