Scusa ma è praticamente incomprensibile.
Visto che la manipolazione delle stringhe non è il tuo forte, ti suggerisco un'altra strada.
- Suddividi la stringa in un array usando la funzione Split
- Costruisci la sottostringa concatenando uno ad uno gli elementi dell'array e verificando che la lunghezza non superi 3000.
- Riparti dall'elemento non aggiunto.

Però mi sorge una domanda: a cosa può servire tutto ciò?