Assign shortcut programmatically

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