risolto con questa funzione:

codice:
Function ControlloEmail(email)
Dim ObjRegexp
Dim risultato
Set ObjRegexp = New RegExp
ObjRegexp.Global = True
ObjRegexp.IgnoreCase = True
ObjRegexp.Pattern = "^[_a-z0-9+-]+(\.[_a-z0-9+-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)+$"
risultato = ObjRegexp.Test(email)
Set ObjRegexp = Nothing
ControlloEmail = risultato
End Function