Mirando y programando un poco mas ...
Aqui esta el Código fuente en ASP.NET
Código:
Dim maxpalabras As Integer = 20
Dim Cadena As String = ""
Dim arraycadena As Array
arraycadena = Split(Texto, " ") ' Parteme la cadena en los espacios
Dim i As Integer = 1
While i < maxpalabras
Cadena = Cadena & arraycadena(i) & " "
i = i + 1
End While
Dim tam As String = Len(Cadena)
Cadena = Left(Cadena, tam - 1)
Dim palabras As Integer = 15
While Len(Cadena) > 90
While i < palabras
Cadena = Cadena & arraycadena(i) & " "
i = i + 1
End While
tam = Len(Cadena)
Cadena = Left(Cadena, tam - 1)
palabras = palabras - 1
End While
Return Cadena & "..."