[导入]匹配正则表达式的函数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.csdn.net/chsword/archive/2006/12/25/1460308.aspx