Private Sub AddMenuBar()
    'Try
    menuTag = "A unique tag"
        Set menuBar = Application.ActiveExplorer().CommandBars.ActiveMenuBar
        Set newMenuBar = menuBar.Controls.Add( _
            Office.MsoControlType.msoControlPopup, _
            Temporary:=False)
        'If newMenuBar <> Null Then
            newMenuBar.Caption = "New Menu"
            newMenuBar.Tag = menuTag
            Set buttonOne = newMenuBar.Controls.Add( _
                Office.MsoControlType.msoControlButton, _
                Before:= 1 , Temporary:=True)

            With buttonOne
                .Style = Office.MsoButtonStyle.msoButtonIconAndCaption
                .Caption = "Button One"
                .FaceId =  65 
                .Tag = "c123"
            End With

            'AddHandler buttonOne.Click, AddressOf ButtonOne_Click
            newMenuBar.Visible = True
        'End If
    'Catch Ex As Exception
    '    MessageBox.Show (Ex.Message)
    'End Try
End Sub
Private Sub RemoveMenubar()
    'Try
    menuTag = "A unique tag"
          ' If the menu already exists, remove it.
        Dim foundMenu As Office.CommandBarPopup
            Set foundMenu = Application.ActiveExplorer().CommandBars.ActiveMenuBar.FindControl(msoControlPopup, _
            System.Type.Missing, menuTag, True, True)
            'CommandBars.ActiveMenuBar. _
            'FindControl(Office.MsoControlType.msoControlPopup, _
            'System.Type.Missing, menuTag, True, True)
        If foundMenu Then
            foundMenu.Delete (True)
        End If
    'Catch Ex As Exception
     '   MessageBox.Show (Ex.Message)
    'End Try
End Sub