Application VisualBasic Script

Sub Test()
    MsgBox CommandBars(3).Controls(1).Caption
End Sub