Kontextmenü mit Untermenü

Public Sub SetCommandbar()
    Dim objCmdBar As CommandBar
    Dim objCPopup As CommandBarPopup
    Dim objButton As CommandBarButton
    Set objCmdBar = Application.CommandBars("Cell")
    Set objCPopup = objCmdBar.Controls.Add(msoControlPopup, Temporary:=True)
    Set objButton = objCPopup.Controls.Add(msoControlButton, Temporary:=True)
    With objCPopup
        .Caption = "Menü"
        .BeginGroup = True
        '.FaceID = 59 
        With objButton
            .Caption = "UnterMenü1"
            .FaceId = 59
            .OnAction = "MeinMakro"
        End With
        With objButton
            .Caption = "UnterMenü2"
            .FaceId = 59
            .OnAction = "MeinMakro"
        End With
        With objButton
            .Caption = "UnterMenü3"
            .FaceId = 59
            .OnAction = "MeinMakro"
        End With
    End With
End Sub
Public Sub MeinMakro()
    MsgBox "Hallo"
End Sub