On Thu, 02 Aug 2007 18:35:32 -0700, maarten wrote:

thanks a lot guys. this works well for me. i added an if loop to test
the regex first so that it returns an empty field if no match is found
instead of the original string.

If objRegExp.Test(str) = True Then
RESub = objRegExp.Replace(str, ReplWith)
Else
RESub = ""
End If

mordy

Glad it works for you. Thanks for the feedback.
--ron