Validare una e-mail

[gensole]

Ciao scusate qualcuno saprebbe fornirmi una function che abbia come fine la validazione di una e-mail!
Dovrebbe controllare che la stringa sia almeno del tipo

xx@xx.xx

ovvero che contenga almeno una @
che dopo la @ contenga un .
che prima della @ contenga almeno 2 caratteri
e che contenga almeno 2 caratteri dopo il .

vi ringrazio anticipatamente

[99eros9]

Function valida_email(email)
  Dim objRegExp
  Set objRegExp = New RegExp
  objRegExp.Pattern = "^[A-Za-z0-9._-]+\@[A-Za-z0-9._-]+\.[a-z]{2,4}$"
  objRegExp.IgnoreCase = True 
  valida_email = objRegExp.Test(email)
End Function


If valida_email(ValoreDaValidare) Then
'valore valido
Else
'non é un indirizzo valido
End If

Dovrebbe andare

[gensole]

ti ringrazio tanto