VB中能否动态定义、生成Office.CommandBarButton？

比如正常的写法
Dim WithEvents CommandBarButton1 As Office.CommandBarButtonSet CommandBarButton1 = objEditorMenuFile.Controls.Add(Type:=msoControlButton, Temporary:=True)Private Sub CommandBarButton1_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
End Sub但如果程序中的Office.CommandBarButton数量事先不确定，需要在运行时根据需要动态的生成，如何做？包括后面的_Click点击事件，如何生成？谢谢！