Отследить нажатие конкретной клавиши позволяет API функция GetAsyncKeyState. Чтобы отследить комбинацию клавиш можно ее вызвать несколько раз. Для примера поставьте на форму таймер с Interval=1 и введите следующий код:

Private Sub Timer1_Timer()
Dim key1 As Long
Dim key2 As Long
key1 = GetAsyncKeyState(vbKeyMenu)
key2 = GetAsyncKeyState(vbKeyA)
If key1 <> 0 And key2 <> 0 Then MsgBox "Вы нажали Alt+A"
End Sub