Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'Check for Up or Down arrow.
Do
If KeyCode = vbKeyControl And KeyCode = vbKeyDelete And Shift = 1 Then
    MsgBox ("hello")
Else
    MsgBox ("goodbye")
End If
Loop
End Sub

'Private Sub Form_Load()
'Do
'MsgBox ("HAHA")
'Loop
'End Sub
Private Sub Form_Load()

End Sub

    Source: geocities.com/matkins70