Hola, esto puede ayudarte.
************************************************** ****
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyReturn Then
MsgBox " Presionaste (CTRL) Y (ENTER) "
End If
End Sub
************************************************** *****
Recuerda poner KEYPREVIEW en el FORMULARIO a TRUE