关于VB控制EXCEL菜单的问题

我想用VB给EXCEL制作一个菜单，但是我不想用宏的方式。
另外一个说法就是
当我新增一个菜单后，单击这人菜单，不是触发宏里面的过程。而且是直接触发VB中的过程。
再一个说法：VB怎样捕获EXCEL的菜单事件 --------------------编程问答-------------------- --------------------编程问答-------------------- 不懂，up --------------------编程问答--------------------

'要先引用 Excel库

Option Explicit

Dim WithEvents xlWork As Excel.Workbook



Private Sub Command1_Click()

  Dim xlApp As New Excel.Application

  Set xlWork = xlApp.Workbooks.Add

  xlWork.Save

End Sub



Private Sub xlWork_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

   MsgBox "文件马上就要保存了"

End Sub

xlWork 的事件只有以下这些 

Event Activate() 

Event AddinInstall() 

Event AddinUninstall() 

Event AfterXmlExport(Map As XmlMap, Url As String, Result As XlXmlExportResult) 

Event AfterXmlImport(Map As XmlMap, IsRefresh As Boolean, Result As XlXmlImportResult) 

Event BeforeClose(Cancel As Boolean) 

Event BeforePrint(Cancel As Boolean) 

Event BeforeSave(SaveAsUI As Boolean, Cancel As Boolean) 

Event BeforeXmlExport(Map As XmlMap, Url As String, Cancel As Boolean) 

Event BeforeXmlImport(Map As XmlMap, Url As String, IsRefresh As Boolean, Cancel As Boolean) 

Event Deactivate() 

Event NewSheet(Sh As Object) 

Event Open() 

Event PivotTableCloseConnection(Target As PivotTable) 

Event PivotTableOpenConnection(Target As PivotTable) 

Event SheetActivate(Sh As Object) 

Event SheetBeforeDoubleClick(Sh As Object, Target As Range, Cancel As Boolean) 

Event SheetBeforeRightClick(Sh As Object, Target As Range, Cancel As Boolean) 

Event SheetCalculate(Sh As Object) 

Event SheetChange(Sh As Object, Target As Range) 

Event SheetDeactivate(Sh As Object) 

Event SheetFollowHyperlink(Sh As Object, Target As Hyperlink) 

Event SheetPivotTableUpdate(Sh As Object, Target As PivotTable) 

Event SheetSelectionChange(Sh As Object, Target As Range) 

Event Sync(SyncEventType As MsoSyncEventType) 

Event WindowActivate(Wn As Window) 

Event WindowDeactivate(Wn As Window) 

Event WindowResize(Wn As Window)  --------------------编程问答-------------------- 3楼不错 --------------------编程问答-------------------- 你是做工具条吗 --------------------编程问答-------------------- 谢谢三楼了，但是我想要的是我自定义的工具菜单单击事件的捕获。不知有没有什么好办法 --------------------编程问答-------------------- --------------------编程问答-------------------- 新手学习中

补充：VB ,  VBA