[AbdoDabak]

اخي عندك برنامج Winrar

---

اعتقد انو البرنامج ما رح يشتغل ليكون في برنامج Winrar

---

اخي شكرا الك نجحت الاكواد بس الكود الاول
"A" "B" "C"  كيف بدي اخلي يكتب سطر بين كل 3 احرف
هو عبيكتب كلو مع بعض
وشكرا على المساعدة

---

اخي مشي حال الاسطر قمت بتغيير
If i = 0 Then
     TextBox1.Text += s & vbLf

Exit Sub

الى

     TextBox1.Text += s & vbCrLf

Exit Sub

---

عند تشغيل الكود الاول باربع احرف البرنامج يعمل
لكن عند اضافة اكثر من اربع احرف البرنامج يتوقف عن العمل 
ممكن شرح بسيط للكود كي استطيع اضيف اليه اكواد
واكرر شكري على المساعدة