Public addInCommandBarPopup As CommandBarPopup
Public WithEvents addInButton As CommandBarButton

'........................................................................

addInCommandBarPopup = oBar.FindControl(Tag:="my_popup")
        If addInCommandBarPopup Is Nothing Then
            addInCommandBarPopup =
oBar.Controls.Add(Type:=MsoControlType.msoControlPopup, Temporary:=True)
            With addInCommandBarPopup
                .Caption = "Положение и грузовая работа станции"
                .Tag = "my_popup"
                .Enabled = True
                .Visible = True
            End With
        End If

        addInButton = addInCommandBarPopup.FindControl(Tag:="my_report")
        If addInButton Is Nothing Then
            addInButton =
addInCommandBarPopup.Controls.Add(Type:=MsoControlType.msoControlButton,
Temporary:=True)
            With addInButton
                .Caption = "Отчёт"
                .Tag = "my_report"
                .OnAction = "!<my_excel_addin.Connect>"
                .Enabled = True
                .Visible = True
            End With
        End If