Private menuBar As Office.CommandBar   
Private newMenuBar As Office.CommandBarPopup   
Private buttonOne As Office.CommandBarButton   

Try           
   'Recuperamos la instancia de la barra activa           
   menuBar = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar
   'Agregamos la nueva opción del menú de herramientos           
   newMenuBar = menuBar.Controls.Add( _
                Office.MsoControlType.msoControlPopup, _ 
                Temporary:=False)            
   'Validamos tener la instancia del objeto           
   If newMenuBar IsNot Nothing Then               
      'Nombre de la nueva opción               
      newMenuBar.Caption = "Clientes"               
      newMenuBar.Tag = "Opciones para los clientes"                
     
      'Creamos la instancia del nuevo botón que va a ir dentro                
      'de la opción que estamos creando               
      buttonOne = newMenuBar.Controls.Add( _                    
                  Office.MsoControlType.msoControlButton, _                   
                  Before:=1, Temporary:=True)                

      'Modificamos algunas opciones de nuevo botón                
      With buttonOne                   
         'Definimos el estilo del botón                    
         .Style = Office.MsoButtonStyle.msoButtonIconAndCaption
         'Texto del botón                    
         .Caption = "Selectiva"                   
         .FaceId = 65                   
         .Tag = "c123"                
      End With                

      'Utilizamos delegados para establecer el evento al                
      'cual tiene que responder el botón               
      AddHandler buttonOne.Click, AddressOf ButtonOne_Click                

      'Hacemos que el botón sea visible               
      newMenuBar.Visible = True           
   End If       
Catch Ex As Exception           
      MessageBox.Show(Ex.Message)       
End Try

Hasta la próxima