Public Class frm1
  Private Sub txtInput_KeyPress(KeyCode As Integer)
If KeyCode = 13 Then 
 MsgBox("hit")
End If

MsgBox(KeyCode.toString)
End Sub
 
 
End Class