Callbacks have a very specific format

SendToExp MUST look like this since it's a Button callback. I usually use a global variable to hold any results, like file name.

Sub Messagebox(control As IRibbonControl)

Sub SendToExp(control As IRibbonControl)