Retomando el tema y más simplificado... esta vez como necesitaba que en cada texto/noticia se cortara de un punto diferente busco la cadena [END] dentro del texto q delimitará el punto a cortar la noticia:
Código:
' Busca en la cadena la marca [END] y la corta
' made in PortalUrbano.com xD
function CortarNoticia(cadena1)
cadena = cstr(cadena1)
cadena = split(cadena,"[END]",-1,1)
if ubound(cadena) = 0 then
CortarNoticia = cstr(cadena1)
else
CortarNoticia = cadena(0) & "..."
end if
end function ' ----------------