Cacher is the code snippet organizer for pro developers

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

Sub MyEditBoxCallbackOnChange(control As IRibbonControl, strText As String)
    Select Case control.ID
        Case "MyEditBox"
                MsgBox "Значение “Editbox” : " & _
                       strText, vbInformation, "Это заголовок!"
    End Select
End Sub