Menü in Excel von VB6.0 aus erzeugen??

Sub Test_Excel()
Set xl = GetObject(, "Visio.Application")
Set objMenu = xl.Application.ActiveMenuBar.Menus.Add("QuickView")
Set objButtonA = objMenu.MenuItems.AddMenu("Show")
Set objButtonB = objButtonA.MenuItems.Add("Show Files", "sFiles")
Set objButtonB = objButtonA.MenuItems.Add("Show Parameter", "sPara")
Set objButtonA = objMenu.MenuItems.Add("Info", "info")
End Sub

In einem Excel starte ich den Aufruf über:

Sub Menu_testen()
Set Go = CreateObject("QuickViewAddin.TESTDLL")
Call Go.Test_Excel
End Sub

Es kommt folgende Fehlermeldung die ich nicht auflösen kann und hoffe auf Hilfe - gern auch mit anderem Lösungsansatz:
"Laufzeitfehler: 438
Objekt unterstützt diese Eigenschaft oder Methode nicht"
Gruß
Massimo
PS:Weil ich mir nicht sicher bin, ob ich in diesem Forum richtig bin, werde ich evtl im ActiveVB-Forum noch fragen.