Public Sub OnConnection(ByVal application As Object, ByVal connectMode As _
  Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As _
  System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
        applicationObject = application
        addInInstance = addInInst
        objApp = CreateObject("Outlook.Application")
        objNS = objApp.GetNamespace("MAPI")
        objCalendar = objNS.GetDefaultFolder( _
          Outlook.OlDefaultFolders.olFolderCalendar)
 
        MenuBar = applicationObject.ActiveExplorer.CommandBars.ActiveMenuBar
 
        Dim bFound As Boolean = False
        For Each cmd As Core.CommandBarControl In MenuBar.Controls
            If cmd.Caption = "TerminExport" Then
                cmd.Delete()
            End If
        Next
 
        mnuTop = CType(MenuBar.Controls.Add(Type:=offTypes.msoControlPopup, _
          Before:=MenuBar.Controls("&?").Index), CommandBarPopup)
        mnuTop.Caption = "TerminExport"
        mnuTop.Visible = True

Public Sub OnBeginShutdown(ByRef custom As System.Array) Implements _
  Extensibility.IDTExtensibility2.OnBeginShutdown
 
    End Sub

Public Sub OnDisconnection(ByVal RemoveMode As _
  Extensibility.ext_DisconnectMode, ByRef custom As System.Array) Implements _
  Extensibility.IDTExtensibility2.OnDisconnection
 
    End Sub

mnuTop.Delete()
 
oder
 
mnuTop.Delete(System.Reflection.Missing.Value)
mnuTop = Nothing

applicationObject.quit