VB Script wrapper function for regular expression

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