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
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
