Hola!
he probado esto que me explicaste pero no funciona del todo
me puedes ayudar? gracias!
TextoCompleto = "El ácido acetilsalicílico se administra principalmente por vía oral, aunque también existe para uso rectal y como terapia intravenosa. Los comprimidos de aspirina para administración oral se hidrolizan con facilidad cuando se ven expuestos al agua o aire húmedo, de modo que deben permanecer almacenados en sus envoltorios hasta el momento de su administración"
n = InStr(90, TextoCompleto," ")
car90car = left(TextoCompleto,n-1)"
TextoCompleto = right(TextoCompleto, len(TextoCompleto)-(Len(car90car)+1)) 'El +1 elimina el " "
'n = InStr(15,car90car , " ")
response.write car90car & "<br>" & TextoCompleto
