Hola:
Y si deseas tenerlo como una función que la puedas utilizar en distintas páginas, esta te puede valer. Además controla que la arroba aparezca al menos en el tercer lugar y el punto al menos en el séptimo:
Function ValidMail(cEmail)
If Len(Trim(cEmail)) > 9 And InStr(1, cEmail, "@") > 2 And InStr(1, cEmail, ".") > 6 Then _
ValidMail = True
End Function
Un saludo. :) ;)
<a href="http://www.laventanita.net/" target="_blank">
<img src="http://www.breogan.org/images/Aston.gif" border="0" alt="La Ventanita.net - Lo imprescindible en la red"></a>