Private Sub Form_KeyUp(KeyCode As Integer,Shift As Integer) Debug.Print "You released " & KeyCode & Space(1) & Chr(KeyCode) End Sub