Private Sub Command1_Click()
Dim MeinText As String
 
MeinText = "Hallo das ist ein Test, der bei einer Zeilenlänge von 20 Zeichen" & _
  "aber nicht mitten in einem Wort einen Umbruch hinzufügt !"
 
MeinText = Umbruch(MeinText, 20)
 
MsgBox MeinText
End Sub
 
Public Function Umbruch(Text As String, Zeilenlänge As Long)
Dim N As Long
Dim NeuerText As String
Dim Leerzeichen As Long
Dim Länge As Long
 
For N = 1 To Len(Text) Step Zeilenlänge
 Leerzeichen = 0
 
  Do While Not Right(Mid(Text, N, Zeilenlänge + Leerzeichen), 1) = " "
    If N + Zeilenlänge + Leerzeichen >= Len(Text) Then Exit Do
     Leerzeichen = Leerzeichen - 1
  Loop
 
 NeuerText = NeuerText & Mid(Text, N, Zeilenlänge + Leerzeichen) & vbCrLf
 N = N + Leerzeichen
 Leer = 0
Next
 
Umbruch = NeuerText
 
End Function