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