Se vuoi usare un array devi splittare per @

codice:
email = "nome.cognome@miodominio.com"
arr_email = split(email, "@")
dominio = arr_email(1)

Potresti invece usare la funzione InstrRev
http://www.w3schools.com/vbscript/func_instrrev.asp

Roby