Application VisualBasic Script

Sub Inventory()
    Dim cb As commandBar
    For Each cb In Application.CommandBars
        Debug.Print TranslateCommandBarType(cb.Type)
    Next
    Set cb = Nothing
End Sub
Function TranslateCommandBarType(vType As MsoBarType) As String
    Dim sType As String
    Select Case vType
        Case Is = MsoBarType.msoBarTypeMenuBar
            sType = "Menu Bar"
        Case Is = MsoBarType.msoBarTypeNormal
            sType = "Normal"
        Case Is = MsoBarType.msoBarTypePopup
            sType = "Popup"
        Case Else
            sType = "Unknown type"
    End Select
    TranslateCommandBarType = sType
End Function