RegExp mail strane

[Fichico]

ciao a tutti
dato che le RE non sono il mio forte chiedo lumi a qualcuno esperto

attualmente uso questa func per validare un indirizzo email:

Function VerificaMail(email)
	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(email)
End Function

fino ad oggi è sempre andata più che ebne ma mi trovo ad avere un indirizzo non validato anche se va bene, in particolare un indirizzo giapponese che pè di questo tipo:
letterenumeri.letterenumeri@letteren...en umeri.museum

ho sostituito ovviamente i dati reali con "letterenumeri"

ora .. l'estensione .museum esiste ...
quindi mi servirebbe una regexp che non mi consenta un solo punto dopo la @ ma anche più di uno e che consenta una estensione che sia tra 2 e 4 caratteri, OPPURE di 6 caratteri

come va corretta?

grazie mille

[santino83_11_04]

alla fine prova a mettere {2,6} al posto di {2,4}...poi magari se ho tmepo la guardo questa regexp