Simple Email Address Syntax Verification

Dim EmailAddress As String = "Example@Example.com"
If EmailAddress Like "*?@?*.?*" Then
    Diagnostics.Debug.WriteLine("Email address syntax is correct.")
Else
    Diagnostics.Debug.WriteLine("Email address syntax is wrong.")
End If