DescriptionText Property Example
This example adds a control to a custom command bar, including a description of the control's behavior.
Set myBar = CommandBars.Add("Custom", msoBarTop, , True)
myBar.Visible = True
Set myControl = myBar.Controls _
.Add(Type:=msoControlButton, ID:= _
CommandBars("Standard").Controls("Paste").ID)
With myControl
.DescriptionText = "Pastes the contents of the Clipboard"
.Caption = "Paste"
End With