eagleeye & textarea linieskift

Ved ikke om det her er tilladt - hvis ikke - så undskylder jeg mange gange. Eagleeye har hjulpet mig med en funktion.........som virker fremragende - det eneste der ikke er optimalt er at funktionen laver et break inden den sætter den første tekststreng ind (den der bliver hentet fra db
Hvis eagleeye ikke svarer her - er der måske en anden der kan hjælpe...funktionen ser således ud:
<%
function maxantal(str)
inputStr = str
reDim  arr(0)
str = replace(inputStr,"<br>",vbCrLf)
MaxLength = 110
while (LEN(str)>0)
  splitIndex = InStrRev(str, vbCrLf, MaxLength)
  if splitIndex = 0 then
    splitIndex = InStrRev(str, " ", MaxLength)
    if splitIndex = 0 then splitIndex = LEN(str)
  end if 
  ReDim Preserve arr(UBOUND(arr) + 1)
  arr(UBOUND(arr)) = LEFT(str, splitIndex)
  str = MID(str, splitIndex + 1)
wend
outStr = ""
for i = LBound(arr) to UBound(arr)
  outStr = outStr & arr(i) & vbCrLf
next
outStr = replace (outStr, vbCrLf, "<br>")
maxantal = outStr
end function

%>