En cuanto a lo del mail te paso esta pequeña rutina:
altas.cpmail.value="el valor del mail"
if(altas.cpmail.value<>"")then
if(instr(1,altas.cpmail.value,"@")=0)then
msgbox "Error : Dirección e-mail no válida." & chr(32)&chr(10) & "Ejemplo :
nombredeusuario@website.domain.country ",vbexclamation+vbsystemmodal,"Error de sintaxis"
altas.cpmail.select()
exit function
else
if(instr(1,altas.cpmail.value,".")<>0)then
if(instr(1,altas.cpmail.value,".")=len(altas.cpmai l.value))then
alert "La dirección no tiene un dominio"
altas.cpmail.select
end if
else
alert "La dirección de correo no es válida"
altas.cpmail.select
exit function
end if
if(instr(1,altas.cpmail.value,chr(32))<>0)then
alert "Un correo electrónico no puede usar espacios en blanco"&chr(32)&chr(10)&"El programa suprimirá los espacios en blanco."
altas.cpmail.value=replace(altas.cpmail.value,chr( 32),"",1,1000)
end if
end if
end if