vba and custom ui control tool

Hi,

I am trying to get a tooltip for a custom toolbar. The UIcontrol tool is called : UISelectionTool.
It is located in the tool bar named test. I cannot reference this properly. The pcmdItem is blank.

Private Function UISelectionTool_ToolTip() As String
Dim pCommandBars As ICommandBars
Set pCommandBars = ThisDocument.CommandBars
Dim pUid As String
'Dim pCommandItem As ICommandItem

Dim pCommandBar As ICommandBar

Dim pCmdItem As ICommandItem
Set pCommandBar = pCmdItem
' Use ArcID module and the Name of the Save command
Set pCmdItem = Application.Document.CommandBars.Find(Project.ThisDocument.UISelectionTool)
pCmdItem.Execute
UISelectionTool_ToolTip = "Test"

end function

Attached Thumbnails