lcString = "855965-401 revJ2, revJ 85revJ 5965-403 and revJ, revJ2, 855965-405 revJ2" oRX = Createobject("VBScript.RegExp") With oRX .Pattern = "\brevJ\b" .IgnoreCase = .F. .Global = .T. Local loMatches loMatches = .Execute(m.lcString) ENDWITH _screen.FontName = "Courier New" clear ? m.lcString For Each loMatch In loMatches ? PADL("^",loMatch.firstIndex+1) * ? loMatch.firstIndex + 1,loMatch.Value ENDFOR ** And you could replace all matches with something else unique ** This one is using the pattern above NewString = oRX.Replace(m.lcString, REPLICATE("%",LEN("revJ"))) ? m.lcString ? m.NewString ** Or simply ask if exists with Test method. ? oRX.Test(m.lcString)Cetin