主题：請問 菜單功能區 功能組 標準按鈕的標題代碼如何表示?

謝謝回答, 如下代碼,我希望得到標題內容 :

For Each a1 As RibbonMenu.Tab In RibbonTabs
    For Each a2 As RibbonMenu.group In a1.Groups
        For Each a3 As  RibbonMenu.RibbonItem  In  a2.Items
            Dim r As Row = CurrentTable.Rows.AddNew()
            R("第一列")= a1.name
            R("第二列")= a2.name
            R("第三列")= a3.name
            R("標題")= a3.text     '標題 出錯誤!!
           
            MSGBOX(A1.NAME &"  " & A2.NAME & " " & A3.NAME )
            If Typeof a3 Is RibbonMenu.Button
                Output.Show("aaaaaa" & a3.name)
            End If
        Next
    Next
Next

再則 該按鈕的事件代碼如何取得??