Private Sub AddToolbar()
 
        Dim commandBar As Microsoft.Office.Core.CommandBar = Nothing
        Dim firstButton As Microsoft.Office.Core.CommandBarButton
        Dim secondButton As Microsoft.Office.Core.CommandBarButton
 
        Dim CommandBars As Microsoft.Office.Core.CommandBars = Nothing
 
 
 
        Try
            'commandBar = Microsoft.Office.Core.CommandBars("Test")
            commandBar = CommandBars("Test")
 
 
 
            'commandBar = CommandBars
 
        Catch ex As ArgumentException
            ' Toolbar named Test does not exist so we should create it.
        End Try
 
        If commandBar Is Nothing Then
            'commandBar = Microsoft.Office.Core.CommandBars.Add("Test", 1, 
            ' False, True)
            commandBar = CommandBars.Add("Test", 1, False, True)
        End If
 
 
 
        Try
            ' Add a button to the command bar and create an event handler.
            firstButton = CType(commandBar.Controls.Add(1), _
              Microsoft.Office.Core.CommandBarButton)
 
            firstButton.Style = _
              Microsoft.Office.Core.MsoButtonStyle.msoButtonCaption
            firstButton.Caption = "button 1"
            firstButton.Tag = "button1"
            AddHandler firstButton.Click, AddressOf ButtonClick
 
            ' Add a second button to the command bar and create an event 
            ' handler.
            secondButton = CType(commandBar.Controls.Add(1), _
              Microsoft.Office.Core.CommandBarButton)
 
            secondButton.Style = _
              Microsoft.Office.Core.MsoButtonStyle.msoButtonCaption
            secondButton.Caption = "button 2"
            secondButton.Tag = "button2"
            AddHandler secondButton.Click, AddressOf ButtonClick
 
            commandBar.Visible = True
 
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub