Perchč dopo che fai lo split lo trasformi automaticamente in un array e quindi per leggerlo devi fare un ciclo FOR

codice:
For i = 0 To uBound(ID_TOUR3)

Response.Write ID_TOUR3(i)

Next
Ciao