' Die folgenden Variablen global deklarieren
Private WorkData() As Double
Private Fehlwert As Long
Private Anzahl   As Long
 
Private Sub WorkData_Ermitteln(ByVal MySqlText As String, Dok As String)
  Dim Fehler_Zaehler As Integer, I As Integer
  ' Ausführen der Abfrage, (diese Prozedur ist aber nicht vollständig)
  Fehler_Zaehler = 0
 
  Set rsText = CE_SQL.CreateDynaset(MySqlText, DB_SQLPASSTHROUGH)
  On Error GoTo Text_Fehler
  If rsText.RecordCount > 0 Then
    rsText.MoveLast     ' wegen ODBC-Error 3146
    rsText.MoveFirst
 
    Anzahl = rsText.RecordCount
    ReDim WorkData(Anzahl)
    For I = 1 To rsText.RecordCount
      WorkData(I) = CDbl(rsText!Wert)
      rsText.MoveNext
    Next I
  Else
    Anzahl = 0
  End if
  Exit Sub
 
Text_Fehler:
  Fehlwert = Err.Number
End Sub
 
    ' Hier müßte dein Aufruf stehen, also deine oben beschriebene Funktion, 
    ' die dann WorkData_ermitteln MySqlText, "" aufruft (da ist der zweite 
    ' Parameter auch optional)
' Funktion zum Auslesen der WorkData bzw. Rückgabe, Fehlerstatus
Public Function GetDocID(KorrespondenzSatz As String) As Variant
  Anzahl = 0: Fehlwert = 0
  GetDocID = Empty
 
    MySqlText = "SELECT ........ "
    WorkData_ermitteln MySqlText, ""
    If Anzahl > 0 Then
      ' Hier sollte ein Array zurückgegeben werden
      GetDocID = WorkData
    Else
      If Fehlwert <> 0 Then
        GetDocID = CLng(Fehlwert)
      End If
    End If