phattrienweb

Function IsValidEmail(Email As String) As Boolean
If InStr(1, Email, ".") = 0 Then
IsValidEmail = False
Exit Function
End If

If InStr(1, Email, "@") = 0 Then
IsValidEmail = False
Exit Function
End If
IsValidEmail = True
End Function