Custom CommandBar

[bobparker122]

I'm building a custom right click using VBA for Word. I am not able to make the TooltipText appear. Is there anything I am missing in the code below?:

Set myCommandBar= CommandBars.Add("name1",_ msoBarPopup, False, True)

If myCommandBar.FindControl(, , "tag1", True) Is Nothing Then

Set CommandBarPopup1= myCommandBar.Controls.Add_(msoControlPopup, , , 5, Temporary:=True)
With CommandBarPopup1
.BeginGroup = True
.Caption = "Caption text"
.Tag = "tag1"
End With

Set button1=CommandBarPopup.Controls.Add_(msoControlButton, , , , False)
With button1
.Caption = "Click here"
.BeginGroup = True
.TooltipText = "Tool tip text"
.FaceId = 126
End With