ESC o ENTER como keycode

Hola que tal,
Tengo el siguiente código:
Private Sub NOMBRE_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyF1
Forms!SALIDA![referenciaventa subformulario2]!articulo = Forms!consulta!codigo
Case vbKeyF2
DoCmd.Close
End Select
End Sub
El cual me funciona bien pero es posible utilizar las teclas ENTER(intro) o ESC(escape) en vez
De FI y F2, gracias.