[size=2][color=#0000ff]Imports[/color][/size][size=2] System.Text.RegularExpressions
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] regexEmail [/size][size=2][color=#0000ff]As[/color][/size][size=2] Regex
[/size][size=2][color=#0000ff]If[/color][/size][size=2][color=#0000ff]Not[/color][/size][size=2] regexEmail.IsMatch(txtEmail.Text, "\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*") [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]ErrorProvider.SetError(txtEmail, "Invalid Email!")
[/size][size=2][color=#0000ff]Return[/color][/size][size=2][color=#0000ff]False
[/color][/size]
[size=2][color=#0000ff]Exit[/color][/size][size=2][color=#0000ff]Function
[/color][/size][size=2][color=#0000ff]End[/color][/size][size=2][color=#0000ff]If
[/color][/size]