Dela upp sträng i en array, med reguljärt uttryck.

Hej!
Har en klurig fråga.
Skulle vilja dela upp en sträng efter ett att den har skrivit ut 4st [a][/a].
Har denna koden som klipper efter ett antal tecken,

text = "Om jag har en text med tex 100 tecken. Kan jag välja att dela upp den i 5 lika stora delar? typ i en array eller nåt med 20 tecken i varje array så jag kan skriva ut array(1) så kommer de första 20 tecknen."

function textdel(variabel,del)
   Dim text,raknare, arrayraknare, textlangd
   Dim textarray(5)
   textlangd = (int(len(variabel) / 5)) ' Hur stor en del är
   raknare = 1 ' räknar startvärdet i mid
   arrayraknare = 0 'raknar aktuell post i arrayen 
   Do until arrayraknare = 5
   textarray(arrayraknare) = mid(variabel,raknare,textlangd)
   arrayraknare = arrayraknare + 1
   raknare = raknare + textlangd
   Loop
    textdel = textarray(del)
end function

response.Write(textdel(text,0))

Alltså ska den leta efter [a][/a] , när det har hittats 4st så ska den texten läggas i en array, sen letar den vidare i texten och tills fyrs [a][/a] skrivs ut igen, då läggs det in i arrayn.
Ja ni fattar?

Någon med några bra ideer?

Mvh martin