controllo e-mail multiplo

[marco1970]

salve,
questo script mi permette di controllare se la variabile passata è un indirizzo e-mail corretto oppure no.
Lo script funziona perfettamente se passo una variabile contenente un solo indirizzo ma se la variabile contiene 2 o piu indirizzi non funziona ( es. aaa@aa.it,bbb@bb.it ).
Allego sript

	function ConvalidaCampo(indirizzo)
		dim valido
		dim nome, parte, i, c

		valido = true
		nome = Split(indirizzo, "@")

		if UBound(nome) <> 1 then
			valido = false
			convalidacampo = valido
			exit function
		end if

		for each parte in nome
			if Len(parte) <= 0 then
				valido = false
				convalidacampo = valido
				exit function
			end if

			for i = 1 to Len(parte)
				c = Lcase(Mid(parte, i, 1))

				if InStr("abcdefghijklmnopqrstuvwxyz_-.", c) <= 0 and not IsNumeric(c) then
					valido = false
					convalidacampo = valido
					exit function
				end if

			next

			if Left(parte, 1) = "." or Right(parte, 1) = "." then
				valido = false
				convalidacampo = valido
				exit function
			end if

		next

		if InStr(nome(1), ".") <= 0 then
			valido = false
			convalidacampo = valido
			exit function
		end if

		i = Len(nome(1)) - InStrRev(nome(1), ".")
		if i <> 2 and i <> 3 then
			valido = false
			convalidacampo = valido
			exit function
			end if
		if InStr(indirizzo, "..") > 0 then
			valido = false
			convalidacampo = valido

		end if
	convalidacampo = valido
	end function

Come dovrei modificarlo?
Grazie
Marco

[[trodat]]

Perchè dovrebbe passare due indirizzi email?

[marco1970]

lo script è fatto per uno solo ora nel mio form ho la possibilità di mandare la stessa mail a + pesone quindi nella casella di testo io scrivo i vari indirizzi separati da virgola.
Vorrei sapere come modificare questo script per il mio uso
Grazie

[viki1967]

Devi usare una Regular Expression.

[marco1970]

scusa l'ignoranza ma ho la + pallida idea di cosa sia.
Potresti farmi un esempio grazie

[viki1967]

http://www.regular-expressions.info/