NEVER put several things in one field. Why? You can't get anything meaning out of it without a PhD in VBA.<br><br>I think you need a function.<br><br>But it will only work if you data is consistant.<br>Are there always 3 items like "Desktop", "Network", "Phones"<br>Are they always separated by the word "OR"<br>-----------------------<br>Public Function AndJunkData(Junk)<br> 'Next time don't let any one put 3 items in one field<br> Dim FirstAnd As String, SecondAnd As String, ThirdAnd As String<br> Dim FindFirstOR, SecondOR As Integer<br> Dim AllUpperCase As String<br> AllUpperCase = UCase(Junk)<br> FindFirstOR = InStr(1, AllUpperCase, " OR ")<br> SecondOR = InStr(FindFirstOR + 1, AllUpperCase, " OR ")<br> FirstAnd = Left(Junk, FindFirstOR - 1)<br> ThirdAnd = Right(Junk, Len(Junk) - SecondOR - 3)<br> SecondAnd = Mid(Junk, FindFirstOR + 4, Len(Junk) - Len(ThirdAnd) - Len(FirstAnd) - 8)<br> AndJunkData = FirstAnd & " AND " & SecondAnd & " AND " & ThirdAnd<br>End Function<br>-----------------------------<br>If one record in a database has more than one relation like your 3, network desktop and phone then either create another table or create 3 fields.<br><br><br><br>