Independientemente de que puedes hacerlo como
u_goldman dice en lugar de usar vectores, también haciendo de lado eso de que quieres usar innecesariamente una variable adicional a la Application donde ya tienes los correos, ¿por qué no los asignas uno por uno y listo?
Código asp:
Ver originalvector = Array("1@1", "2@2", "3@3", "4@4")
Dim variable()
Redim variable(UBound(vector))
For i=LBound(variable) to UBound(Variable)
variable(i) = vector(i)
Next