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)