VB6，如何制作COM加载项或者外接程序给Excel的VBE添加右键菜单

VB6，怎么制作COM加载项或者外接程序给Excel的VBE添加右键菜单？
最近想给Excel的 VBE 添加右键菜单。尝试了下面两段代码，无法实现。
代码一:

Implements IDTExtensibility2

Dim ExApp   As Excel.Application

Private Sub IDTExtensibility2_OnAddInsUpdate(custom() As Variant)

    '占位

End Sub

Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)

    '占位

End Sub

Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)

    Set ExApp = Application

End Sub

Private Sub IDTExtensibility2_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)

    Set ExApp = Nothing

End Sub

Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)

    On Error Resume Next

    ExApp.VBE.CommandBars("code window").Controls.Add(10, , , 1).Caption = "TEST"

End Sub

代码二：

Dim ExApp   As Excel.Application

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)

    Set ExApp = Application

End Sub

Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)

    Set ExApp = Nothing

End Sub

Private Sub AddinInstance_OnStartupComplete(custom() As Variant)

    ExApp.VBE.CommandBars("code window").Controls.Add(10, , , 1).Caption = "TEST"

End Sub

调试：
错误 1004 ，不信任到 visual basic project 的程序连接。(excel 已勾选 “对VB项目的信任”)
环境：Excel 2003 。
在excel 2010  或者 word 2003 下面都可以实现，唯独 excel2003 不行。
excel 2010下的效果图：