Application VisualBasic Script

Sub Test2()
    MsgBox CommandBars("Standard").Controls("New").Caption
End Sub