Application VisualBasic Script

Sub com()
    MsgBox CommandBars(1).Controls("Help").ID
End Sub