Raccourci d'exécution

Bonjour à toutes et à tous,
Comme le dis le titre, je voudrais pouvoir exécuter une ou plusieurs commandes en appuyant sur une touche, comme lorsque qu'on appuie sur un bouton. Exemple :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        MsgBox("Coucou !", 0 + 4096, "Nouveau Message...")
    End Sub

Je voudrais pourvoir exécuter la commande

MsgBox("Coucou !", 0 + 4096, "Nouveau Message...")

lorsque j'appuie sur une touche du clavier (la touche "a" par exemple).
Est-il possible de faire ceci ?
Merci de votre aide,
hcp7kuz