Ich habe ein VBA Script was bei jeden Dokument eine neue fortlaufen Nummer generieren soll.

Nur plötzlich kommt immer ein Überlauffehler den ich mir nicht erklären kann

Der Fehler wird hier beim debuggin gemeldet:

             If oRechnungen.GetSelValCount() > 0 Then
             oRechnungen.ReadSelVals (0)

Eine Idee was das sein kann?

Sub Reserve_and_Set_RechNr(ByVal control As IRibbonControl)
    Dim oRechnungen As cPodio_Interface
    Dim oBestellung As cPodio_Interface
    Dim filters As Scripting.Dictionary
    Dim NextRechNr As Long
    
    Set oRechnungen = New cPodio_Interface
    oRechnungen.ClientID = Office_client_id
    oRechnungen.ClientSecret = Office_client_secret
    oRechnungen.AppID = Rechnungen_app_id
    oRechnungen.AppToken = Rechnungen_app_token
    '
    'Rechnungen
    'Felder die verfügbar sein sollen
    Set oRechnungen.SelCols = New Collection
    oRechnungen.SelCols.Add ("rechnungsnummer")
    oRechnungen.SelCols.Add ("kunde")
    oRechnungen.SelCols.Add ("holding")
    oRechnungen.SelCols.Add ("rechnungsdatum")
    oRechnungen.SelCols.Add ("bestellnummer")
    'Verbinden mit Rechnungen App
    If oRechnungen.OAuthAppAuthorization() = True Then
        'höchste Rechnungsnummer ermitteln
        Set filters = New Scripting.Dictionary
        'filters.Add "rechnungsnummer", "200106"
        If oRechnungen.Filter("rechnungsnummer", True, 1, filters) Then
             If oRechnungen.GetSelValCount() > 0 Then
             oRechnungen.ReadSelVals (0)
'                 Debug.Print "rechnungsnummer = " & oRechnungen.SelVals("rechnungsnummer")
               NextRechNr = CLng(oRechnungen.SelVals("rechnungsnummer")) + 1
                Debug.Print "Nächste Rechnungsnummer ist " & CStr(NextRechNr)
             End If
 '       End If
    Else
        oRechnungen.DeleteAppToken
        MsgBox ("Anmeldung fehlgeschlagen")
    End If