Valide endereço de e-mail via Regular Expressions

Aqui está o código:

Dim objRegExpr As RegExp
Dim blnEmailOk As Boolean

Set objRegExpr = New RegExp

objRegExpr.Pattern = "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*"
blnEmailOk = objRegExpr.Test(Text1.Text) 

Alguns simbolos usados na Expressão:

\w localiza somente letras e dígitos
\. localiza o caracter .
* localiza zero ou mais ocorrências do caracter precedente
+ localiza uma ou mais ocorrências do caracter precedente

Esta matéria foi postada originalmente no ASP4Developers por Valmir Cinquini (site), que na época era "Analista/Programador C#, VB.Net, ASP, VB, Javascript e T-SQL

www.cinquini.com.br/vcinquini>". Hoje, vai saber...