dividere una stringa secondo percentuali

[legal-x]

salve a tutti,

ho questo problema: vorrei dividere una stringa di circa 1300 caratteri (ovviamente proveniente da DB) in 4 parti secondo delle percentuali, ovvero ...prima parte 30 %, seconda 20 %, terza parte 20%, quarta parte 30% ...

mi calcolo il numero di caratteri necessari al taglio così:

testo = trim(rs("testo"))
lung_testo = Len(testo)

lung_1 = Cint(lung_testo * 0.30)
lung_2 = Cint(lung_testo * 0.20)
lung_3 = Cint(lung_testo * 0.20)
lung_4 = Cint(lung_testo * 0.30)

il primo pezzo lo ricavo con semplice

primopezzo = Left(testo,lung_1)

Per gli altri come faccio ?!? ...suggerimenti ?

[optime]

esiste la MID, che ti fa partire da un punto preciso e ti fa prelevare un'altrettanto precisa porzione del testo. usala