Cortar string a las x palabras

[zeroyevi]

hace poco hice el mismo ejercicio con la diferencia de que el string no puede cortar en un largo de una frace me explico ej

"juan pablo perez gonzalez"

que en total son 25 caracteres

ok si lo lo quiero separa en 4 columnas de 7 caracteres
la primera columna me deve querar

"juan "
y no "juan pa"

lo cual como puedo hacer para seguir o hacer un retroceso para que me quere

"juan " , "pablo ", "perez ","gonzale"

la aplicacion lo hice con largos o nombres largos el cual son mas caracteres y 4 columnas , de excel + aplicacion guardado en access o SQL ,,

mi parte del codigo es

Function LimpiaCorte(nr As String) As String
'mas variables

'primera frace--------------------------------------------------------
sacarespacio = Replace(UCase(nr), " ", "")
v = Mid(sacarespacio, 1, 37)
palabras = Split(v, " ")
cantidad = Len(v)
totalPalabras = UBound(palabras)
If (Mid(sacarespacio, 37, 1) = " ") Then
For CPal = 0 To totalPalabras
textoFinal = textoFinal & " " & palabras(CPal)
Next
nr = Trim(textoFinal)
Else
totalPalabras = totalPalabras - 1
For CPal = 0 To totalPalabras
textoFinal = textoFinal & " " & palabras(CPal)
Next
nr = Trim(textoFinal)
End If
'segunda frace--------------------------------------------------------

end function

alguna forma de hacerla mas corta la segunda y tercera parte uf muy largas aparte el ajuste cuesta saludos