Visual Basic 6 - Dividere testo in 100 parti

Salve a tutti quanti, avendo un testo alla quale nn posso aggiungere caratteri o parole, come faccio a dividerlo in 100 o 10 parti?...la funzione split non posso usarla perche ripeto nel testo non posso aggiungere nessuna parola..grazie tante

usi la funzione mid all'interno di un ciclo.
ad esempio se vuoi dividere un testo in 40 blocchi.

-1)crei le variabili
dim blocchi() as string
dim nblocchi as integer
dim testo as string

0)Crei la Sub e esprimi le variabili
private sub dividiinblocchi()
testo = ....
nblocchi = 40
redim blocchi(1 to nblocchi)

1)calcoli quanti caratteri a blocco.
nchar = int(len(testo)/nblocchi)

2)crei il ciclo e le variabili ausiliarie
dim k as integer
for k = 1 to nblocchi

3) estrai i valori
blocchi(k) = mid(testo,(k-1)* nchar, nchar)

4) chiudi tutto
next k
end sub

spero di non essermi dimenticato nulla.