Sei sicuro che il record contenga valori diversi da null?
Fai un controllo prima...

codice:
if IsNull(Rs("ID_CAT")) then
   cat0 = ""
   cat1 = ""
else
   ARR_DALFORM = split(Rs("ID_CAT"), "-")
   cat0 = ARR_DALFORM(0)
   cat1 = ARR_DALFORM(1)
end if