Error message Type mismatch

[66Mike99]

Option Explicit

Sub Aacro1()
    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