Excel VBA Add-in: skifte ikon på menu item

I forlængelse af http://www.eksperten.dk/spm/883442#reply_7434126

Sakser lige lidt kode fraovenstående :

  Set cbcSubMenu = cbcCutomMenu.Controls.Add(Type:=msoControlPopup)
  cbcSubMenu.Caption = "1. Menu"

  With cbcSubMenu.Controls.Add(Type:=msoControlButton)
    .Caption = "1.a undermenu"
    .FaceId = 420
    .OnAction = "Run_1a"
  End With

Det der faceId vil jeg gerne skifte, hver gang der trykkes. Men Run_1a ligger i et modul (ellers virker det ikke), og fra det modul kan jeg jo ikke læse/ændre cbcSubMenu.Controls("1.a undermenu").FaceId

Såå - hvordan ændrer man ikonet (skal skiftes hver gang OnAction aktiveres)