Supongo que lo siguiente debe de funcionar:
Código:
dim strActor,arrActor
strActor=Left(Mid(ContenidoTotal,Act),DifPos)
arrActor=Split(strActor,",",-1,1)
cnt=0
For each cont in arrActor
...
Response.write cont&"<br>"
arrActor(Cnt) = cont
Cnt = Cnt + 1
Next
En cont tienes solo el nombre del actor, ¿o no?, pues solo es cosa de volver a asignar el cada casilla del array con ese dato.