Solved:
Dim cmdBar As Microsoft.Office.Core.CommandBarPopup
Dim cmdBarButton As Microsoft.Office.Core.CommandBarButton
cmdBar = TryCast(Globals.ThisAddIn.Application.CommandBars("Cell").Controls.Add(Office.MsoControlType.msoControlPopup, , , , True), Office.CommandBarPopup)
cmdBarButton = TryCast(cmdBar.Controls.add(Office.MsoControlType.msoControlButton, , , 1, ), Microsoft.Office.Core.CommandBarButton)