'Menuleiste finden
    For Each oMenuBar In oCBs
 
        If oMenuBar.name = "Menu Bar" Then
            Exit For
        End If
    Next oMenuBar
 
    'Menupunkt Extras finden
    For Each oMyControl In oMenuBar.Controls
 
        If oMyControl.Caption = "E&xtras" Then
            Exit For
        End If
 
    Next oMyControl
 
    'Schleife durch das Menu Extras
    Dim i As Integer, temp As String, oCtl As Office.CommandBarControl
 
    For Each oCtl In oMyControl.Controls
        temp = temp & oCtl.Caption & Chr(13)
    Next
 
    MsgBox temp