[导入]匹配正则表达式的函数BOOL型（修正一下）

     Shared   Function  isright( ByRef  s  As   String ,  ByRef   right   As   String )  As   Boolean
         Dim  Regex  As   New  Regex( right , RegexOptions.IgnoreCase)
         Return  Regex.IsMatch(s)
     End Function

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
原来我写的太垃圾了，修正一下
使用示例：

if  isright(useremail, " ^w+([-+.']w+)*@w+([-.]w+)*.w+([-.]w+)*$ " )   then   exit sub

文章来源: http://blog.youkuaiyun.com/chsword/archive/2006/12/25/1460308.aspx