كيف أستطيع أن أجعل التكست يقوم بعمل انتر بعد كل تلاث كلمات

Option Base 0
Private Sub Command1_Click()
 Dim arr() As String, s As String
 arr = Split(Text1, " ")
 If UBound(arr) < 2 Then
	For i = LBound(arr) To UBound(arr)
		If i = UBound(arr) Then s = s & arr(i) Else s = s & arr(i) & " "
	Next
 End If

 For i = LBound(arr) To UBound(arr) - 2 Step 3
	 s = s & arr(i) & " " & arr(i + 1) & " " & arr(i + 2) & vbCrLf
 Next
 Text1 = s
End Sub

Private Sub Command1_Click()
Dim arr() As String, s() As String
arr = Split(Text1, " ")

For i = LBound(arr) To UBound(arr) - 2 Step 3
	 s(i) = s & arr(i) & " " & arr(i + 1) & " " & arr(i + 2) & vbCrLf
Next
End Sub

ألف شكر وجزاكم الله خيرا

يا أخ KARIMSOFT

هذا الكود المقتبس كنت قد وضعته في أول الأمر .. ومن ثم بعد قليل قمت بتعديله لأضيف الكود التالي عليه:

If UBound(arr) < 2 Then
	For i = LBound(arr) To UBound(arr)
		If i = UBound(arr) Then s = s & arr(i) Else s = s & arr(i) & " "
	Next
End If

والسبب واضح .. وهو إرجاع النص مرة أخري إذا كان هناك أقل من ثلاث كلمات في التكست .

وفققك الله للخير