Application VisualBasic Script

Sub com()
    MsgBox CommandBars(1).Name
End Sub