Пользовательское изображение на ленте, созданное макросом в Project

Question

В этом файле есть макрос, который в событии FileOpen (в нашем случае Project_Open, но я пытаюсь сделать его немного более общим) создает строку RibbonXML и загружает ее как CustomUI, как показано ниже:

Function CreateRibbon()
    Dim ribbonXml As String
    ribbonXml = "<customUI ....>
    ....
    ribbonXml = "<mso:button id="customButton" getImage=""GetImage"" ....>
    ....
    ActiveProject.SetCustomUI (ribbonXml)
End Function

Под этой функцией я указал функцию GetImage

Public Function GetImage(Ctrl As IRibbonControl) As IPictureDisp // I tried 'As String' as well
    On Error Resume Next
    If Ctrl.ID = "SiemensLogo" Then
        GetImage = "FormRegionMenu"
    Else
        GetImage = "HappyFace"
    End If 'Ctrl.ID?  
End Function 'GetImage

Когда я открываю проект, он показывает сообщение об ошибке:

Automation error. Exception occured.

Есть идеи, что я делаю не так?