Создать подменю

'контекстное меню появляется в тексте
    With Application.CommandBars("Text").Controls.Add(msoControlButton)
        .OnAction = "Script.Изменить"
        '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
        .Caption = "Изменить &6"
    End With

'контекстное меню появляется  когда курсор находится в таблице
    With Application.CommandBars("Table Text")
 
        With .Controls.Add(msoControlButton)
            .OnAction = "Script.Удалить"
            '"&" перед знаком, означает, что этому знаку назначена горячая клавиша
            .Caption = "Удалить &0"
        End With
 End With

    Dim УдаляемыйПункт As CommandBarControl
    Dim Меню As CommandBar
    'для каждого меню
    For Each Меню In Application.CommandBars
        'каждый элемент меню
        For Each УдаляемыйПункт In Меню.Controls
            'Debug.Print УдаляемыйПункт.Caption
            'Debug.Print УдаляемыйПункт.Creator
            If УдаляемыйПункт.BuiltIn = False Then
                Debug.Print УдаляемыйПункт.Caption & "-" & УдаляемыйПункт.Creator
                УдаляемыйПункт.Delete 'получаю ошибку метод делит для объекта failed-ПОЧЕМУ?
                q = q + 1
              End If
        Next УдаляемыйПункт
    Next Меню

On Error Resume Next