Set the form's KeyPreview property to True.

Code:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = (192) Then Debug.Print ("~")
End Sub