Try this on.
^\w+([-+.
Function EmailAddressCheck(ByVal emailAddress As String) As Boolean
Dim pattern As String = "^\w+([-+.']\w+)*@\w+([-.']\w+)*\.\w+([-.]\w+)*$"
Dim emailAddressMatch As Match = Regex.Match(emailAddress, pattern)
If emailAddressMatch.Success Then
EmailAddressCheck = True
Else
EmailAddressCheck = False
End If
End Function