The following adjusted code did it....
Sub Create_Menu()
Dim MyBar As CommandBar
Dim MyPopup As CommandBarPopup
Dim MyButton As CommandBarButton
Delete_Menu
Set MyBar = CommandBars.Add(Name:=" ", _
Position:=msoBarTop, temporary:=True)
Rem Position:=DmsoBarTop, temporary:=True)
Rem Position:=msoBarFloating, temporary:=True)
With MyBar
.Top = -15
.Left = 600
Set MyPopup = .Controls.Add(Type:=msoControlPopup)
With MyPopup
.Caption = "BUDGET PLANNER MENU"
.BeginGroup = True
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Budget Wizard"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = True
.OnAction = "Naar_BudgetWizard"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Budget berekening"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = True
.OnAction = "Naar_salarisgegevens"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Overzicht O.R.T."
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = False
.OnAction = "ORT_Overzicht"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Legenda"
.Style = msoButtonCaption
.BeginGroup = False
.OnAction = "Show_Legenda"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Verklaring Afkortingen"
.Style = msoButtonCaption
.BeginGroup = False
.OnAction = "Show_Afkortingen"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Help"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = False
.OnAction = "Naar_Help"
End With
Set MyButton = .Controls.Add(Type:=msoControlButton)
With MyButton
.Caption = "Afsluiten"
.Style = msoButtonCaption
''' msoButtonAutomatic, msoButtonIcon, msoButtonCaption, or msoButtonIconandCaption
.BeginGroup = True
.OnAction = "Afsluiten"
End With
End With
Rem .Width = 500
.Visible = True
End With
End Sub