Utilise la methode IndexOf et teste le resultat
ma_variable.IndexOf("@", 1)
ou ma_variable est le nom de la variable associee a la Text box ou l'utilisateur est sense rentrer l'email. (le 1 permet de verifier qu'il y bien quelque chose avant le "@", on commence a regarder a partir de la deuxieme position de la chaine si le caractere "@" est present.)
Les resultat est la position de "@" si le caratere est present sinon le resultat est -1, donc avec un if tu devrais arriver a faire ce que tu veux.
Pour parfaire ton test tu pourrais tester sur le meme principe la presence du "." a partir de la position renvoyee par la commande precedente incremente d'une unite (en cas de succes pour "@" bien sur.)Ca ne coute pas beaucoup plus cher.