Menüleiste

ich habe mir eine eigene menüleiste erstellt, was auch prima funktioniert. jetzt möchte ich ein neues menü "datei" hinzufügen, mit folgenden code habe ich es versucht:

Dim entry As CommandBarControl
Dim cmdMenuOp As CommandBarPopup
Const Titel As String = "&Datei"

Sub NeuesMenü()
'Füge das neue Menü "Datei im Hauptmenü ein
Set cmdMenuOp = CommandBars("Test-Menüleiste").Controls _
.Add(Type:=msoControlPopup)
cmdMenuOp.Caption = Datei
End Sub

es funktioniert aber nicht und es kommt auch kein laufzeitfehler.
was mache ich verkehrt?

für eure hilfe wäre ich dankbar!

gruß
martin