Originariamente inviato da agenti
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)
La provo, ma volevo sapere che significato ha "$1"