another example,

http://ooo.developpez.com/faq/?page=Chaine#Question208


this function allows you to apply a newline in a string, all 30 characters, without breaking words.

__________________________________________________ __________________________________________________ __________________________________________
Sub Test()
Dim txt As String, nbc As Integer

txt = "Le club Developpez.com est le principal site d'entraide des développeurs francophones avec jusqu'à 70 000 " & _
"visites par jour. Le club est fréquenté par 800 000 développeurs (développeurs, chefs de projets, DBA,...) tous les mois. Le club" & _
" vous apporte gratuitement une multitude d'avantages : newsletter, magazine, actualités, cours, tutoriels, articles, FAQ's, tests, " & _
"comparatifs, débats, sondages, outils, sources, composants et exemples de codes, les BLOGs des développeurs, et enfin la TV des " & _
"développeurs. Le club est animé bénévolement par tous les membres du club et en particulier par l'équipe de rédaction du club. " & _
"L'inscription est facile, rapide et gratuite : Inscrivez-vous."

nbc = 30

MsgBox ScinderChaine(txt, nbc)
End Sub


Function ScinderChaine(DonneesDeBase As String, NbCar As Integer)
Dim Cible As String
Dim Resultat As String, Chaine As String
Dim i As Integer, X As Integer

Cible = DonneesDeBase

For i = 1 To Len(Cible)
X = InStr(NbCar, Cible, " ")

If X = 0 Then
Chaine = Cible
Resultat = Resultat & Chaine
Exit For
End If

Chaine = Mid(Cible, 1, X)
Resultat = Resultat & Chaine & Chr(10)
Cible = Mid(Cible, Len(Chaine) + 1)
Next

ScinderChaine = Resultat
End Function



--
isabelle