Kontextmenü mit Untermenü

ich wollte einem eigenen Kontextmenü weitere Untermenüs hinzufügen. Wie muß ich den Code ändern, das dem Menüpunkt Zahlungsbedingungen zwei weitere Untermenüs für die Auswahl der Zahlungsfristen von 14 bzw. 30 Tagen eingefügt werden können.

Sub KonTextMenu()
Dim Ctrl As CommandBarButton
With CommandBars("Cell")
While .Controls.Count > 0
On Error Resume Next
.Controls(1).Delete
Wend
Set Ctrl = .Controls.Add(msoControlButton)
With Ctrl
.Caption = "Zahlungsbedingungen"
.OnAction = "Zahlungsbedingungen"
End With
End With
End Sub