Visual Basic - VALIDAR

deseo validar que una caja de texto solo permiat direciones electronicas que si se ingresa un registro que posea el arrova(@)
que mande un mesaje que este registro no puede ser validado de lo contrario resgistrese . DESEARIA QUE FUERA EL CODIGO LISTO PARA LA CAJA DE TEXTO POR QUE DE VERDAD ME URJE.

GRACIAS

Incluye en el evento Keypress de la Caja de Texto la siguiente instrucción :
-----------------------------
If keyascii = 64 then
msgbox "No puede ser validado."
keyascii=0
end if
------------------------------
Ya sabrás que el 64 corresponde al caracter @ en el juego de caracteres.
Si ésto fuera lo que deseas, me alegraré.
Un saludo.-