Private Sub Command1_Click()
 
Dim sLine() As String
Dim I As Integer
Dim NextLine As String
Dim MaxWidth As Long
Dim sText As String
 
 With Text1 'TextBox 1
 
 MaxWidth = 25 'Maximale Länge
 sText = .Text 'Ausgangstext
 
' zunächst die "harten" Zeilenumbrüche ermitteln
    sLine = Split(sText, vbCrLf)
    For I = 0 To UBound(sLine)
      If Len(sLine(I)) <= MaxWidth Then
        ' Zeile hat keine "Überbreite"
        sText = sLine(I)
      Else
        ' Zeile umbrechen
        Do
          NextLine = ""
          While Len(sLine(I)) > MaxWidth
            NextLine = Right$(sLine(I), 1) + NextLine
            sLine(I) = Left$(sLine(I), Len(sLine(I)) - 1)
          Wend
          sText = sLine(I)
          sLine(I) = NextLine
          'Lehrzeichen entfernen
        Loop Until Trim$(sLine(I)) = ""
      End If
      'FALSCHE AUSGABE IN DER TEXTBOX
      .Text = sText
    Next I
  End With
End Sub