Dim objMenu As Menu
    Dim objButtonA As Menu
    Dim objButtonB As MenuItem
 
    Set objMenu = ActiveMenuBar.Menus.Add("Mein Menü")
 
        Set objButtonA = objMenu.MenuItems.AddMenu("Untermenü")
            Set objButtonB = objButtonA.MenuItems.Add("Untermenü-Punkt", _
              "ubefehl")
        Set objButtonB = objMenu.MenuItems.Add("Mein Menü_Menüpunkt1", "punkt")

Bin f?r jeden brauchbaren Tipp Dankbar!!