Cacher is the code snippet organizer for pro developers

<editBox 
 id="MyEditBox" 
 label="My EditBox: " 
 getText="MyEditBoxCallbackgetText" 
 onChange="MyEditBoxCallbackOnChange"/>

Sub MyEditBoxCallbackgetText(control As IRibbonControl, ByRef strText)
    Select Case control.ID
        Case "MyEditBox"
            strText = "Hello World"
'            strText = "Cat""Lucky"""
'        Case Else
'Почему `Tag` не знаю, возможно используется в `XML`.
'           strText = getTheValue(control.Tag, "DefaultValue")
    End Select
End Sub