Function Found(strTarget, strPattern) Dim regEx Set regEx = New RegExp regEx.Pattern = strPattern regEx.IgnoreCase = False Found = regEx.Test(strTarget) set regEx = Nothing End Function
This post may contain affiliated links. When you click on the link and purchase a product, we receive a small commision to keep us running. Thanks.
Leave a Reply