Menüleiste ohne Funktion

Public Sub reserve()
Dim i As Integer
Dim i_hilfe As Integer
Dim menüneu As CommandBarControl
Dim mb As CommandBarControl
Set menüneu = Application.CommandBars(1) _
.FindControl(Tag:="Veranstaltungslogistik-Programme")
If menüneu Is Nothing Then
i = Application.CommandBars(1).Controls.Count
i_hilfe = Application.CommandBars(1).Controls(i).Index
Set menüneu = Application.CommandBars(1).Controls _
.Add(Type:=msoControlPopup, _
before:=i_hilfe, temporary:=True)
With menüneu
.Caption = "Veranstaltungslogistik-Programme"
.Tag = "Veranstaltungslogistik-Programme"
End With
Set mb = menüneu.Controls.Add(Type:=msoControlButton)
With mb
.Caption = "Logistik"
.Style = msoButtonCaption
.OnAction = "prgrstart"
.BeginGroup = True
End With
End If
Set menüneu = Nothing
End Sub