if not txtEmail.text = regexString then
something happens..
else
something else happens..
end if
使用 System.Text.RegularExpressions.Regex 类：
Function IsEmail(Byval email as string) as boolean
Static emailExpression As New Regex("^[_a-z0-9-]+(.[a-z0-9-]+)@[a-z0-9-]+(.[a-z0-9-]+)*(.[a-z]{2,4})$")
return emailExpression.IsMatch(email)
End Function
理解这篇答案最重要的一点是，这个正则表达式不是我自己写的。有许多看起来正确实际上是错误的方法，而且你可以从几个层次上处理这个问题。例如，你想将其限制在有效的顶级域名范围内吗？如果是这样，你如何考虑到它们现在偶尔添加新的 TLD 呢？正则表达式是否是进行这种检查的最合适地方，或者应该编写独立的代码进行检查？即使是这个答案中的表达式也已经过时，因为它最初是由一个人编写的。
我建议找到一个外部资源，以确保你使用的表达式会随着时间的推移而得到维护。
在我的正则表达式匹配电子邮件地址的文章中选择您最喜欢的正则表达式，并将其插入此Visual Basic代码：
If Regex.IsMatch(SubjectString, "regex") Then
Error = False
Else
Error = True
End If
匹配电子邮件地址的最佳正则表达式是一个有争议的话题，我不想在这里深入讨论。我的文章讨论了选择正则表达式时应该注意的问题。Joel Coehoorn答案中的正则表达式绝对不是一个好的选择。
{|}~\w])|([!#$%&'*+\-/=?^_{|}可能与正则表达式无关，但您可以使用.NET 2.0的一些内置功能：
try
{
MailAddress email = new MailAddress(txtEmail.Text);
}
catch(FormatException fe)
{
// output error
}
john.doe@anywhere.com，并在 john. 之后输入空格，则 MailAddress 对象将接受该文本，并且 MailAddress.Address 将具有值 doe@anywhere.com，而不会抛出异常。 - HardCode电子邮件地址：RFC 2822（简化版） 匹配普通电子邮件地址。不检查顶级域。 需要打开“不区分大小写”选项。
Dim FoundMatch As Boolean
Try
FoundMatch = Regex.IsMatch(txtEmail.text, "\A(?:[a-z0-9!#$%&'*+/=?^_`{|}~-]+(?:\.[a-z0-9!#$%&'*+/=?^_`{|}~-]+)*@(?:[a-z0-9](?:[a-z0-9-]*[a-z0-9])?\.)+[a-z0-9](?:[a-z0-9-]*[a-z0-9])?)\Z", RegexOptions.IgnoreCase)
Catch ex As ArgumentException
'Syntax error in the regular expression
End Try
If Not FoundMatch Then
Error = True
Else
Error = False
End If