PHP كود :
Dim Pattern As String
Pattern = "^\b[A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,}\b$"
Dim Valid As Boolean
Valid = Regex.IsMatch(Pattern , email.Text)
If Valid = True Then
Else
Msgbox("عنوان البريد الالكتروني خاطئ","تنبيه")
Return
End If