Dim MyMenuBar As CommandBar
Dim Ctr_Pop As CommandBarPopup
Dim Ctr_but As CommandBarButton
'-------------
Set MyMenuBar = CommandBars.Add(Name:="MyMenu", Position:=msoBarTop, MenuBar:=True, Temporary:=True)
MyMenuBar.Visible = True
MyMenuBar.Protection = msoBarNoMove

Set exAp = CreateObject("Excel.Application")
Set wdAp = CreateObject("Word.Application")

Function Start()
Dim MyMenuBar As CommandBar
Dim Ctr_Pop As CommandBarPopup
Dim Ctr_Pop_but As CommandBarButton
'-------------
Set MyMenuBar = CommandBars.Add(Name:="MyMenu", Position:=msoBarTop, MenuBar:=True, Temporary:=True)
MyMenuBar.Visible = True
MyMenuBar.Protection = msoBarNoMove
'====================================================
Set Ctr_Pop_but = MyMenuBar.Controls.Add(msoControlButton)
With Ctr_Pop_but
    .Style = msoButtonCaption
    .Caption = "Kassets"
    .TooltipText = "Help text"
    .FaceId = 202
    .OnAction = "=Fnd()"
    .Parameter = "kass"
    .BeginGroup = True
End With
'====================================================
End Function

Function Fnd()
Dim MyMenu As CommandBar, pr As String
'------------------------------------
Set MyMenu = CommandBars("MyMenu")
'------------------------------------
' The ActionControl property of command bars returns the control
' whose OnAction property is running this procedure.
pr = CommandBars.ActionControl.Parameter
Select Case pr
    Case Is = "kass"
     MsgBox "Clic on Menu"

End Select
End Function