Textbox (Object) Right Click Menu - Disable Cut
 

I am looking to disable the right click Cut event when dealing with Text
boxes (Drawing Objects). I have seen code that disables the right click cut.
The following code works on the page, but not when a textbox is selected:

Dim TheCmdBar as Office.CommandBarControl

for each TheCmdBar in Applicaiton.CommandBars.FindControls(ID:=21)
TheCmdBar.Enabled = False
Next TheCmdBar

Thanks in advance.