Access VisualBasic Script

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