Create a module
Put this code in the module and save it
Code:
Public Function GetGLPosition(sFieldContents, sSearchString)Dim ArrayItems
If InStr(sFieldContents, ":") Then
ArrayItems = Split(sFieldContents, ":")
For I = 0 To UBound(ArrayItems)
If sSearchString = ArrayItems(I) Then
GetGLPosition = I + 1
Exit Function
End If
Next I
Else
If sSearchString = sFieldContents Then GetGLPosition = 1
End If
End Function
in your query the syntax would be
GLPosition: getglposition([Fieldname], "SearchString")
so for instance if you were looking for the position of the string "U1" and your field name was called GLString you would use
GLPosition: getglposition([GLString], "U1")
Then you could add criteria for which glposition you were looking for (i.e. a criteria of 1 in the GLPosition field)