Yo cree una funcion, con la ayuda de foros del web ^^
Código:
<%
Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function
%>
Luego haces algo asi como
txtAImprimir = cortarHasta(150, texto, " ")
txtAimprimir = txtAImprimir & "..."
Con esa funcion eliges, siempre que quires, reutilizando codigo, desde donde cortas, y a partir de que caracter (asi no se rompen las palabras)
Suerte!