Datenbankfeld nach dem längsten Teilstring durchsuchen

Ich habe hier eine Access-Tabelle mit Vereinsbezeichnungen


Diese würde ich gerne per SQL-Abfrage durchsuchen, so dass die Anfangsposition des längsten Teilstrings in eine zweite Spalte geschrieben wird.

ICh habe nun schon versucht, die Anzahl der Leerzeichen zu bestimmen und darauf fußend die einzelnen Teilstrings zu bestimmen - allerdings schaffe ich das nicht für variable Anzahlen von Teilstrings...

Any hints?

Danke

Dirk

Function GetMaxSubStringLen(TheString As String) As Integer
Dim SubString As Variant, MaxLen As Integer, LenSub As Integer
For Each SubString In Split(TheString)
    LenSub = Len(SubString)
    If LenSub > MaxLen Then MaxLen = LenSub
Next
GetMaxSubStringLen = MaxLen
End Function

UPDATE Vereine SET Vereine.LMax = GetMaxSubStringLen([Vereinsname]);

Function GetPosMaxSubString(TheString As String) As Integer
Dim SubString As Variant, MaxSubString As String, MaxLen As Integer, LenSub As Integer
For Each SubString In Split(TheString)
    LenSub = Len(SubString)
    If LenSub > MaxLen Then
        MaxLen = LenSub
        MaxSubString = SubString
    End If
Next
GetPosMaxSubString = InStr(TheString, MaxSubString)
End Function