se cerchi nel forum dovretsi capire meglio...
ma.... 
è tanto che non la uso..
codice:
Function evidenzia(stringa, parola)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "(\W)(" & parola & ")(\W)"
RegEx.Global = True
RegEx.IgnoreCase = True
evidenzia = RegEx.Replace(stringa, "$1" & "" & "$2" & "" & "$3")
End Function
testoTest = "La consorte è andata ad Orte, ha con se la malasorte." & VbCrLf
testoTest = testoTest & "Tante ortensie sul vie di Orte e tutte storte le sue porte." & VbCrLf
testoTest = testoTest & "Orte ha il re e la sua corte, tutti ad Orte a tirar le torte." & VbCrLf
testoTest = testoTest & "Anche se piccola è orte. con la O grande si scrive, Orte." & VbCrLf
Response.Write Replace(evidenzia(testoTest, "orte"), VbCrLf, "
" & VbCrLf)