求教有关遍历快速访问栏菜单方法

例如快速访问栏菜单内容：

人力资源|客户管理|系统管理

人力资源子菜单

员工信息

员工合同

—————分割线

员工工资

员工考核

求助如何遍历读取到子菜单名称？

For Each rb As RibbonMenu.menubutton In qat.Items
    For Each zb As RibbonMenu.button In rb.items
        output.show(zb.Name)
    Next
Next

以上代码报错，因为子菜单有分割线不符合RibbonMenu.button,

假如子菜单下还有子菜单又如何写？谢谢

For m As Integer = 0 To qat.items.count -1
    If Typeof qat.items(m) Is RibbonMenu.menubutton  Then
         Dim rb As RibbonMenu.menubutton = qat.items(m)
          For n As Integer = 0 To rb.Items.count - 1
                If Typeof rb.items(n) Is RibbonMenu.button  Then
                        output.show(rb.items(n).name)
                End If
            Next
    End If
Next