Ci sono diverse strade per ottenere quello che vuoi.
La prima che mi viene in mente è:
1- usa una variabile (X) per indicare la posizione all'interno della stringa e inizializzala a 1
2- prendi una sottostringa a partire da X di esattamente 3000 bytes (funzione Mid)
3- cerca la posizione del'ultimo separatore "|" (funzione InstrRev)
4- accorcia la sottostringa sino a quella posizione (funzione Mid o Left)
5- imposta X alla posizione trovata +1
6- cicla dal punto 2 fino a che la stringa non termina (funzione Len)

Ciao