邮件地址合法验证

 Private  Function IsCorrectEmailFormat(ByVal emailStr As String) As Boolean

        Dim reg As New System.Text.RegularExpressions.Regex("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$")               '-- This is the Single E-mail handling    
        'Dim reg As New System.text.RegularExpressions.Regex("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+(;)*(( )*(;)+( )*[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+(;)*)*$")  '-- This is Mutil-E-mail handling, split by ";".
        Return reg.IsMatch(emailStr)

    End Function