Køre en Function fra forespørgsel

Hej
En opfølger til spørgsmål https://www.computerworld.dk/eksperten/spm/1034757. Tak for gode svar Terry (Det virker fint i formularen).
Er det muligt at lægge Public Function GetClubs() As String (Se #10) ind så den bliver kørt direkte fra forespørgslen.
Jeg har lagt nedenstående i et modul for sig og henvisning til formularen er rettet til og det fungerer fint når jeg prøver med "Debug.Print GetClubs1" men svarene kommer ikke med over i forspørgslen.

Det jeg er kommet frem til er at den "burde" se sådan ud:
Public Function GetClubs1() As String

Dim varItem As Variant      'Selected items
Dim strWhere As String      'String to use as WhereCondition
Dim lngLen As Long          'Length of string
Dim strDelim As String      'Delimiter for this field type.


    GetClubs1 = ""

    strDelim = """"

    'Loop through the ItemsSelected in the list box.
    With Forms!Oversigt!Liste52    'Hvad fejler her???
        For Each varItem In .ItemsSelected
            If Not IsNull(varItem) Then

                strWhere = strWhere & strDelim & .ItemData(varItem) & strDelim & ";"

            End If
        Next
    End With

    'Remove trailing comma. Add field name, IN operator, and brackets.
    lngLen = Len(strWhere) - 1
    If lngLen > 0 Then
'        strWhere = "IN (" & Left$(strWhere, lngLen) & ")"
'        strWhere = "[Klub_Alias] IN (" & Left$(strWhere, lngLen) & ")"
        strWhere = "Like (" & Left$(strWhere, lngLen) & ")"
   
    End If

    GetClubs1 = strWhere

End Function

Mvh.
Bjørn