Добавить икону на панель инструментов - VB

ActiveWorkbook.RefreshAll
     Dim num As Integer
         num = Application.CommandBars(3).Controls.Count
       num = num + 1
           Dim a As CommandBarControl
       Set a = Application.CommandBars(3).Controls.Add(Type:=msoControlPopup, Before:=num)
        a.Caption = menuname
                a.TooltipText = "Тока для ентой книги"
                              With a.Controls
             Dim CntProp As CommandBarControl
             Set CntProp = .Add(msoControlButton)
                         With CntProp
                  .Caption = menuname1
                  .TooltipText = "Основная"
                                    .OnAction = "Откр_ОКНО"