There are various ways to do this.
How exactly is the data delimited? Is it by the underscore?
Is there always only 4 pieces of data?
If there is you could use a user defined function.
Perhaps something like this.
Which could be used as an expression in a query like this.Code:Function SplitData(DataField As String, Pos As Long, Optional Delimiter = "_") As String Dim arrData arrData = Split(DataField, Delimiter) SplitData = arrData(Pos) End Function
Note the use of 0, this is because Split returns a 0 based array.Code:GetFirst:SplitData([YourField], 0)