A que te referis con "atajos"?, a acceso a un item del menu desde el teclado (Ctrl + X, Ctrl + C, F1) ó a que?...
Porque si es eso, basta con que en el metodo Add no pases el argumento KeyCode..
Código:
MenuXP.MenuItems.Add "itms", "itm1", smiNone, "Item 1", , , vbKeyF2 'Este es el argumento que no se pasa
' o sea q quedaria asi:
MenuXP.MenuItems.Add "itms", "itm1", smiNone, "Item 1"
Saludos