seria desta forma
primeiro mude a propriedade keypreview do form para true
agora cole este código no keypress do form
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = vbMenuAccelCtrlA Then
MsgBox "Ctrl + A"
End If
End Sub
se você deseja outro tipo de combinação eis a dica
quando estiver neste trecho da digitação
If KeyAscii = vbMenu
pressione ctrl + barra de espaço e surgirá as combinações do ctrl
até
