NO pones el código que de verdad es útil, asi que adivinando:
Código:
Cadena = "CAL FEITIS X 25 KG--25|HIERRO TORS. 10 mm--5"
vec1 = SPLIT(Cadena,"|")
For i=0 to Ubound(vec1)
vec2 = SPLIT(vec1(i),"--")
response.write i & "Texto: " & vec2(0) & "<br>"
response.write " Valor: " & vec2(1) & "<br>"
Next
Saludos