[sads]

عفواً أخي الكود به أخطاء
1- لقد نسيت إغلاق الدائرة الحلقية بإضافة كلمة next
عند الإضافة واجهت مشكلة في السطر الأخير 
ياريت التعديل على الكود وقم بالتجربة ثم أرسله 
مشكور جداً أخي على الرد وكل عام وأنت بألف خير

---

عدلت على الكود بهذه الطريقة
  Dim values As New List(Of String)
               
        For ch1 = Asc("a") To Asc("z")

            For ch2 = Asc("a") To Asc("z")

                For ch3 = Asc("a") To Asc("z")

                    values.Add(Chr(ch1).ToString() + Chr(ch2).ToString() + Chr(ch3).ToString())
                Next
            Next
        Next
        lstCombinations.DataSource = values

        lblCombinations.Text = values.Count

لاكن أحتاج لطريقة لحفظ الناتج في ملف txt مباشرة دون إظهارها في أداة ListBox
أرجو المساعدة