il risultato della SPLIT è un Array, e tu lo devi scorrere. ti scrivo la logica

codice:
sTesto=Read...
recArray=SPLIT(sTesto, "<EOR>")
For iRk=lBound(recArray) to UBound(recArray)
   singoloRecord=recArray(iRK)
   --- qui metti la tua SPLIT, che deve splittare SINGOLORECORD, non più sTesto
   --- e fai tutta la insert ecc
Next