função para quebrar linha em caracteres repetidos

Olá pessoal, é seguinte, no meu mural acontece de usuários inserirem caracteres repetidos tipo: kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk e acaba estourando o layout do site. Para tentar resolver isso uso a função abaixo, que conta a quantidade de carcteres que cabe no espaço do layout e dá quebra um espaço, fazendo a quebra de linha no campo de texto:

Function QuebraTexto(Texto, Caracteres)

 If Len(Texto) => Eval(caracteres) Then

 QuebraTexto = Left(Texto, Caracteres) &" "& QuebraTexto(Right(Texto,Len(Texto)-caracteres), Caracteres)

 Else

 QuebraTexto = Texto

 End If

 End Function%>

<%
Response.write <%=QuebraTexto(rs1("comentario"),43 )% >

%>

O problema é que essa função corta palavras também, basta chegar em 43 caracteres e dá um espação dando a quebra de linha. Alguém teria algo mais eficiente?