Tengo algo similar en PHP, pero requería traducirlo a ASP, asi que dazuaga me paso el tip de las RegExp en VB, y aqui esta el resultado:
<%
Dim miXR , miTest
set miXR = new RegExp
miXR.Global =True
miXR.Pattern = ("(^[\w\.]{1,})@([\w\.]{1,})\.(ad|ae|aero|af|ag|ai|al|am|an|ao|aq|ar|arpa |as|at|au|aw|az|ba|bb|bd|be|bf|bg|bh|bi|biz|bj|bm| bn|bo|br|bs|bt|bv|bw|by|bz|ca|cc|cd|cf|cg|ch|ci|ck |cl|cm|cn|co|com|coop|cr|cs|cu|cv|cx|cy|cz|de|dj|d k|dm|do|dz|ec|edu|ee|eg|eh|er|es|et|eu|fi|fj|fk|fm |fo|fr|ga|gb|gd|ge|gf|gh|gi|gl|gm|gn|gov|gp|gq|gr| gs|gt|gu|gw|gy|hk|hm|hn|hr|ht|hu|id|ie|il|in|info| int|io|iq|ir|is|it|jm|jo|jp|ke|kg|kh|ki|km|kn|kp|k r|kw|ky|kz|la|lb|lc|li|lk|lr|ls|lt|lu|lv|ly|ma|mc| md|mg|mh|mil|mk|ml|mm|mn|mo|mp|mq|mr|ms|mt|mu|muse um|mv|mw|mx|my|mz|na|name|nc|ne|net|nf|ng|ni|nl|no |np|nr|nt|nu|nz|om|org|pa|pe|pf|pg|ph|pk|pl|pm|pn| pr|pro|ps|pt|pw|py|qa|re|ro|ru|rw|sa|sb|sc|sd|se|s g|sh|si|sj|sk|sl|sm|sn|so|sr|st|su|sv|sy|sz|tc|td| tf|tg|th|tj|tk|tm|tn|to|tp|tr|tt|tv|tw|tz|ua|ug|uk |um|us|uy|uz|va|vc|ve|vg|vi|vn|vu|wf|ws|ye|yt|yu|z a|zm|zw)$")
If miXR.Test ("varFormEmail") Then
---Procesar la forma---
Else
---Regresar a la forma---
End If
%>
Espero que le ayude a alguien.
Si no, al menos la lista de TLD's les puede servir de algo... je je!!Saludos
