How do I go about creating custom menu items?

Thus far I have:

With Application.CommandBars(1).Controls.Add
(Type:=msoControlPopup)
.Caption = "Name"
.Visible = True
.Enabled = True
End With

This works fine. However I have no Idea of how to add
sub menus.