Private Sub TextBox1_Change()
Dim Tablo, Pos As Long, Res As String
Tablo = Split(ActiveSheet.TextBox1.Text, Chr(13) & Chr(10))
If Len(Tablo(UBound(Tablo))) > 75 Then
Pos = InStrRev(Tablo(UBound(Tablo)), " ")
If Pos > 0 Then
Mid(Tablo(UBound(Tablo)), Pos, 1) = Chr(13) & Chr(10)
End If
End If
Res = ""
For i = LBound(Tablo) To UBound(Tablo)
Res = Res & Tablo(i) & IIf(i < UBound(Tablo), Chr(13) & Chr(10), "")
Next i
ActiveSheet.TextBox1.Text = Res
End Sub