Regular Expression. Problema email

[sylver65]

Salve a tutti,
tempo fa avevo trovato questa regular expression per il controllo delle email inviate da un form.

Orbene, ho notato che alcuni utenti, erroneamente hanno inviato una email di questo titpo:

nome (spazio) nome@miosito.it

e purtroppo la regular non ha funzionato.

Come si potrebbe modificare, evitando questo errore ?

[CODE]
'Email controllo
function check_email(strng)
'Creazione della Regular Expression
Set regEx = New RegExp

'Definizione del pattern di validazione
regEx.Pattern = "^[\w-\.]{1,}\@([\da-zA-Z-]{1,}\.){1,}[\da-zA-Z-]{2,4}$"

'Ignoro maiuscole e minuscole nell'indirizzo email
regEx.IgnoreCase = True

'TRUE se l'email è valida
check_email = regEx.Test(strng)
end function
/CODE]

[Fichico]

io utilizzo la function che ti metto sotto, e non ho mai avuto problemi

Function VerificaMail(indirizzo)
	 Dim objRegExp
	 Set objRegExp = New RegExp
	 objRegExp.Pattern = "^[a-zA-Z0-9._-]+\@[a-zA-Z0-9._-]+\.[a-zA-Z0-9]{2,4}$"
	 objRegExp.IgnoreCase = True
	 VerificaMail = objRegExp.Test(indirizzo)
End function

[sylver65]

hai provato a scrivere una email nel form come ho indicato io?
mi fai sapere.

p.s. grazie per l'aiuto