Target = R.Replace(Target, "<<$&>>")) Function MatchFunc(ByVal M as Match) as String return M.Result("<<$&>>") End Function Dim Evaluator as MatchEvaluator = New MatchEvaluator(AddressOf MatchFunc) Target = R.Replace(Target, Evaluator) ----------------------------------------------------------------------------- Copyright 1997-2024 Jeffrey Friedl