Neues Menue; Position vor '?'

Sub Menue()
Dim AktiveMenüLeiste As Object, EMU As Object, Befehl As Object
On Error Resume Next
Application.CommandBars("EMU").Delete
CommandBars.ActiveMenuBar.Controls("EMU").Delete
Set AktiveMenüLeiste = CommandBars.ActiveMenuBar
'Menü erstellen
Set EMU = AktiveMenüLeiste.Controls.Add(Type:=msoControlPopup, Temporary:=True)
EMU.Caption = "&EMU"
'Erster Befehl im Menü
Set Befehl = EMU.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&Diagramm erstellen"
.OnAction = "make_diagram"
End With
'Zweiter Befehl im Menü
Set Befehl = EMU.Controls.Add(Type:=msoControlButton, ID:=1)
With Befehl
.Caption = "&Wählen..."
.OnAction = "other"
End With
End Sub