Assign shortcut programmatically

How can I assign shortcuts to my macro with VBA code?

Parents
No Data
Reply Children
No Data