Button from Ribbon UI should call VBA function

[Markus]

Hello All,
I have a button in Word via VBA that saves the Word document back to a SQL database.

Here is the button definition so far:

Set oCommandBar = CommandBars.Add(Name:="Exp", Position:=msoBarTop)
oCommandBar.Visible = True
   
Set oMenue = oCommandBar.Controls.Add(Type:=msoControlButton)
With oMenue
                .Caption = "Speichern nach Exp ..."
                .Style = msoButtonCaption 
                .OnAction = "SendToExp"
                .Visible = True
            End With

OnAction calls the function

Public Function SendToExp() As String
    Dim httpreq As MSXML2.XMLHTTP30
    Dim Data As String
    Dim prop As DocumentProperty
    Dim url As String
........
End Function

This has also worked flawlessly for years. Now I wanted to add a second button that also saves back a PDF.
Since I had to work on the macro anyway, I wanted to change the buttons to a modern ribbon UI.

New Ribbon UI XML

<customUI xmlns="Link office /2009/07/ customui">
    <ribbon startFromScratch="false">
  <tabs>
   <tab id="customTab" label="Justus Tab">
    <group id="customGroup" label="Justus Group">
     <button id="customButton" label="Exp1" imageMso="FileSave" size="normal" onAction="Messagebox" />
     <button id="customButton2" label="Exp2" imageMso="FileSave" size="normal" onAction="SendToExp" />
    </group>
   </tab>
  </tabs>
    </ribbon>
</customUI>

The button for the message box works:

Sub Messagebox(control As IRibbonControl)
   MsgBox("Hallo")
End Sub

When pressing the SendToExp button, an error occurs:

"Incorrect number of arguments or invalid assignment of a property".

Public Function SendToExp(control As IRibbonControl) As String
......
End Function

Can someone tell me how the call must be directed?

Best thanks and many greetings

Markus

[Paul_Hossler]

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)

[Markus]

Thanks for your help, problem solved