Access - Validar Email

Hola a todos:
Como puedo valir la correcta entrada de un email, es decir, que la cadena ingresada tenga por lo menos @ y el punto, a través de la regla de validación del campo en la tabla.

Muchas Gracias

Dim cadena_buscada As String
Dim cadena_origen As String
Dim r As Long

cadena_origen = Me.Campo
cadena_buscada = "@."

r= InStr(1,cadena_origen,cadena_buscada)

If IsNull(r) Or r = 0 Then
MsgBox "Valor incorrecto"
End If

Te digo el codigo de memoria, espero que funcione

Gracias a mi tambien me sirvio tu codigo pero asi como esta me daba error Null tuve que cambiarle y usar la funcion inStr dentro del formulario en un campo no se adonde se produjo el error