在Excel 2013中编辑自定义工具栏中的控制文本为空白

我已经有一个工具栏上的V​​BA编辑控件的Excel插件。 这在Excel 2003-2010中已经工作了很长时间。 但是在Excel 2013中,无论input到编辑控件中的是什么,text属性都是空的。 代码与下面的代码类似。

如果我加载的插件作为.XLS,它的工作原理。 但是,如果我把它保存为.XLA并尝试,那就失败了。

Sub test() Set myControl = CommandBars("test").Controls.Add(Type:=msoControlEdit) With myControl .Caption = Search .OnAction = "tester" End With End Sub Sub tester() MsgBox "I am gonna serach for: " & CommandBars("Test").Controls(1).Text CommandBars("Test").Controls(1).Text = "" End Sub