Hallo Zusammen,
Ich habe in Word per VBA einen Button der das Word-Dokument in eine SQL Datenbank zurückspeichert.

Hier die bisherige Button-Definition:

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 ruft dann die 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

Das funktioniert auch seit Jahren fehlerfrei. Jetzt wollte ich einen zweiten Button hinzufügen, der zusätzlich ein PDF zurückspeichert.
Da ich eh schon an das Makro ran musste, wollte ich die Buttons auf ein modernes Ribbon UI umstellen.

Neues Ribbon UI XML

<customUI xmlns="http://schemas.microsoft.com/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>

Der Button für die Messagebox funktioniert:

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

Beim Button SendToExp kommt Fehler:

"Falsche Anzahl an Argumenten oder ungültige Zuweisung einer Eigenschaft".

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

Kann mir jemand sagen wie der Aufruf richten lauten muss?

Besten Dank und viele Grüße

Markus