Public Function command_bar_create()
    Dim cbr As CommandBar
    Set cbr = Application.CommandBars("Настраиваемая 2")
    Dim cbrc As CommandBarComboBox
    Set cbrc = cbr.Controls.Add(Type:=msoControlComboBox, Before:=1, Temporary:=True)
    With cbrc
        .Caption = "Расчетная дата"
        .Style = msoComboLabel
        .Text = Date
        .AddItem Date
        .OnAction = "=date_current()"
    End With
    Set cbrc = Nothing
    Set cbr = Nothing
End Function