[Ahmed_Mansoor]

أهلا أختي الكريمه ، على حسب فهمي الأحرف المستخدمه هي abcde وتريدين توزيعها الآليه التي وضحتيها في ردك الأخير بحيث يكون عدد الأسطر الناتجه هو خمسة أسطر إذا سيكون الكود بهذا الشكل :

كود :

Dim Chars As String
Dim I As Integer
Dim H As Integer

Chars = "abcde"

Dim ResultLines(1 To Len(Chars) ) As String

For I = 1 To Len(Chars)
      For H = 1 To Len(Chars)
             ResultLines(I) = ResultLines(I) & "aa" & Mid(Chars,I,1) & Mid(Chars,H,1) & ","
      Next
      ResultLines(I) = Left(ResultLines(I),Len(ResultLines(I)) - 1)
      MsgBox "Line" & I & "=" & ResultLines(I)
Next

ملاحظه : تستطيعين زيادة عدد الأحرف في المتغير Chars بالعدد الذي تريدينه وسيكون عدد الأسطر الناتجه بعددها .