I've been using the following code to enter custom menu
items in a template.

Sub AddMenuItem()
Dim Item As CommandBarControl
Set Item = CommandBars(1).Controls("Budgeting") _
.Controls.Add
Item.Caption = "&January"
Item.BeginGroup = True
End Sub

This works fine. I need to add a submenu item to the
custom menu. so when click january other submenus pop
up. I was look at the help file for VBA, but am unable
to locate this specific topic.
Any help would be greatly appreciated.

Renato