How can I build right button menu using VBA code

[thedogg]

At the moment I know how to add commands under right button. Is it possible to create more complex relations? Can I build multi level relations under right button? Like tools --> copy, paste etc?

Dim fBut As CommandBarButton


        With Application
            .CommandBars("Cell").Controls("IAT: Mark for deletion").Delete
            Set fBut = .CommandBars("Cell").Controls.Add(Temporary:=True)
        End With


        With fBut
           .Caption = "Do something"
           .Style = msoButtonCaption
           .OnAction = "rework_foam"
        End With