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