'函数名：CheckExp

'作 用：正则表达式测试

'参 数：patrn ---- 正则表达式

'参 数：strng ---- 要测试的字符串

'返回值：测试如果成立返回 True 否则 False

'例 CheckExp("(\<.[^\)","

")

'**************************************************

Public Function CheckExp(ByVal patrn, ByVal strng)

Dim regEx, retVal

Set regEx = New RegExp

regEx.Pattern = patrn

regEx.IgnoreCase = False

retVal = regEx.Test(strng)

CheckExp = retVal

End Function