Bryter sträng mer än jag vill.

Denna "bryt-efter-50-tecken-kod" hittade jag här på Wf, men den bryter även länkar. Hur gör man för att den ska bryta ord som är över 50 tecken långa, men inte länkar?

Function kort(strText) 
strText = Server.HTMLEncode(strText) 

intMaxLength = 50
arrString = Split(strText, " ")
For intIndex = 0 To UBound(arrString)
If Len(arrString(intIndex)) > intMaxLength Then
intSIndex = 0
While intSIndex < (Len(arrString(intIndex)) / intMaxLength)
splittOrd = splittOrd & Mid(arrString(intIndex), (1 + intSIndex * intMaxLength), intMaxLength) & "<br>"
intSIndex = intSIndex + 1
Wend
arrString(intIndex) = splittOrd
End If

strNewString = strNewString & arrString(intIndex) & " "
Next

kort = strNewString
end function