主题：对菜单的判断出错不能跳过

Try
     Dim TheButton As RibbonMenu.ToggleButton=RibbonTabs("***").Groups("***").Items("***")
      
Catch ex As Exception
                
                        
End Try

上面的代码运行的时候,但菜单中没有这个项目的时候,还是出现错误提示出来, 因为在系统默认菜单下,自己定义的菜单是没有的.

如何判断一个没有的菜单并且不出错误呢?

以为是:

if not RibbonTabs("***").Groups("***").Items("***") is nothing then

end if

但这样的代码出错.