Hola
sjam, el error indica que tu arreglo vlista no contiene alguno de los índices, lo que podrías hacer es agregar un par de condiciones, la primera solo ejecuta el código si vlista es un arreglo, y la condición dentro del for le dice que la ejecute siempre y cuando la variable cual sea igual o mayor al número del último índice del arreglo vlista:
Código asp:
Ver originalif isArray(vlista) then
for cual=0 to 3
if uBound(vlista) => cual then
vextras=split(vlista(cual),"|")
end if
next
else
'no tiene indices
end if
Saludos