Undlad at dele ord, ny linie efter 30 tegn

Jeg har et spørgsmål til følgende kode

Jeg ønsker at lave en ny linie for hver 30 tegn, dog ønsker jeg ikke at "cutte" ord op i 2 dele.... hvordan undgår man dette ?

Function InsertStringAtInterval(rsSource, rsInsert, rlInterval)

Dim rgx
Set rgx = new RegExp
rgx.Pattern = "([\s\S]{" & rlInterval & "})"
rgx.Global = true

InsertStringAtInterval = rgx.Replace(rsSource, "$1" & rsInsert)

End Function

s = "Jeg har en tekst streng som er rimelig lang"

s = InsertStringAtInterval(Server.HTMLEncode(s), "<br />", 30)