Code:
Function QuerySplit(FieldName As String, Delim As String, Position As Integer)
Dim myarray() As String
If InStr(FieldName, Delim) > 0 Then
myarray = Split(FieldName, Delim)
If Position <= UBound(myarray) Then
QuerySplit = Trim(myarray(Position))
Else
QuerySplit = ""
End If
Else: QuerySplit = FieldName
End If
End Function