Obtener posicion en cadena de espacio en blanco despues de x posicion

[CMushroom]

Como puedo tener la posicion de espacio en blanco despues de x posicion en una cadena . ejemplo

esto :

$CadenaRecortada = substr($encontrar['Texto'],0,140);

me pasa la cadena pero quiero que no quede palabra incompleta, sino que la corte despues de tal posicion en el primer espacio en blanco, por ejemplo para una reseña