vba Word: How to add selected text into right click menu, or add right clicked word i

[sindhu2352]

I want to add Selected text into right click menu as a .caption
here is my code

PublicSub CreateMacro()
Application.CommandBars("Text").Reset

    Dim MenuButton As CommandBarButton
    With CommandBars("Text")
        Set MenuButton =.Controls.Add(msoControlButton)
        
        
        With MenuButton
            .Caption = Selection.Text
            
            
            
            
            .Style = msoButtonCaption
            .OnAction ="Test_Macro"
        EndWith
    EndWith

    
EndSub

PublicSub Test_Macro()
    MsgBox "I work"
    ResetRightClick
    CreateMacro
EndSub

Sub ResetRightClick()
    
    Application.CommandBars("Text").Reset
         
EndSub

on first attempt right click menu is displayed but empty caption, and on next times it show older caption (not current selection) until the menu item is clicked
or how to add Right clicked word into right clicked menu