Create Floating Toolbar (not Menu)

Need to code to create a custom floating menu which appears on opening the workbook. It works brilliantly, but I'd like to adapt it so that I can create a floating toolbar, which is fully expanded upon opening, where the button faces are plain text which I designate. Let's suppose the macros I want the buttons to trigger are called MacroA and MacroB, and that the text on the buttons should read "Do A" and "Do B".

Sub Create_Menu()
Dim MyBar As CommandBar
Dim MyPopup As CommandBarPopup
Dim MyButton As CommandBarButton
Delete_Menu 'make sure commandbar isn't already running
Set MyBar = CommandBars.Add( Name:="My Menu", _
Position:=msoBarFloating, temporary:=True)
With MyBar
.Top = 175
.Left = 850
Set MyPopup = .Controls.Add(Type:=msoControlPopup)
With MyPopup
.Caption = "My Tools" 'change to suit....................