Buscar caracter dentro de un string y evitar recorte de palabra

[fx700]

Tengo un texto en un textbox(txtDatos) y quiero separar las palabras en tramos de 100 en 100 en un msgbox, pero que estas palabras no se corten por ejemplo el codigo actual me devuelve asi:

Código [Seleccionar] Expandir



¿Cómo funciona el patrón MVC? El funcionamiento básico del patrón MVC, puede resumirse en:El usua
rio realiza una petición.El  controlador captura  el  evento  (puede  hacerlo mediante un maneja
dor de eventos handler, por ejemplo).Hace la llamada al modelo/modelos correspondientes(por  ejem
plo,  mediante una llamada de retorno callback).


Lo que quiero hacer es buscar el ultimo espacio de cada tramo de 100 caracteres y seguir con el sigte. tramo, por lo tanto algunos tramos no tendran 100 sino 85, 92 dependiendo de la ultima palabra, nose si me dejo entender.

Código [Seleccionar] Expandir



Private Sub Form_Load()
txtNumero = "1"
End Sub

Private Sub Command2_Click()
  x = txtNumero
  MsgBox Mid(txtDatos, x, 100)
  txtNumero = Val(txtNumero) + 100
End Sub


El resultado tendria que ser mas o menos asi, la cuestio es que no me corte la ultima palabra de cada tramo de 100 caracteres:

Código [Seleccionar] Expandir


¿Cómo funciona el patrón MVC? El funcionamiento básico del patrón MVC, puede resumirse en:El
usuario realiza una petición.El controlador captura  el  evento  (puede  hacerlo
mediante un manejador de eventos handler, por ejemplo).Hace la llamada al modelo/modelos
correspondientes(por  ejemplo,  mediante una llamada de retorno callback).