Я получаю ошибку несоответствия типов в "Set ToolsMenu = Application.CommandBars(" Панель меню рабочего листа "). Элементы управления (" Инструменты ")"

Question

В следующем коде я получаю несоответствие типов, и все же это выглядит так, как будто объекты имеют одинаковый тип.

Option Explicit

Sub Aacro(1)
Dim ToolsMenu As CommandBarPopup
Dim NewMenuItem As CommandBarButton

MsgBox VarType(ToolsMenu)
MsgBox VarType(Application.CommandBars("Worksheet Menu Bar").Controls("Tools"))

Set ToolsMenu = Application.CommandBars("Worksheet Menu Bar").Controls("Tools")
Set NewMenuItem = ToolsMenu.Controls("New Command")
Set NewMenuItem = ToolsMenu.Controls.Add(Type:=msoControlButton)

NewMenuItem.Caption = "New Command"
NewMenuItem.OnAction = "SayHello"

End Sub

---

Sub SayHello()
MsgBox "Hello"
End Sub