Prova così:

dim arrNomi As Array

arrNomi = Split("claudio@marco@luca@maria@francesca@carla", "@", -1, 1)

Response.write(arrNomi(0))

A me funziona senza importare nulla!