[DK-x]

مرحبا عندي هذا الكود مثل ما مبين ان اليوزر هو الي يدخل القيم حتى تقطع بدالة Split 
المهم اني جهزت كود حتى يقطعه 3 مرات بس لو كان اليوزر مدخل 100 او اكثر شون يصير الكود
ياريت تساعدوني

كود :

Dim a = TextBox2.Text
                   Dim s() = Split(TextBox1.Text, ",")
                   If a.ToLower.Contains(s(0).ToLower) And a.ToLower.Contains(s(1).ToLower) And a.ToLower.Contains(s(2).ToLower) And a.ToLower.Contains(s(3).ToLower) Then
                       MsgBox("Done")
                   End If

[DK-x]

[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته

اخي الكريم  اليك طلبك في المثال المرفق

سيتم تقطيع النص رقم واحد مهما كان عدد التقطيع 

وسيتم البحث عن القيمة نص رقم 2 في المصفوفة  وتكون النتيجة يوجد او لايوجد

[elgokr]

استخدم الكود بهذا الشكل

كود :

       Dim a = TextBox2.Text
       Dim s() = Split(TextBox1.Text, ",")
       For Each b In s.ToArray
           If a.ToLower.Contains(b.ToLower) Then
               MsgBox("Done")
           End If
       Next

فقط يمكنك استبدال نص الرسالة لما تريد من تنفيذه

عند التحقق

تحياتى لك

وتمنياتى لك التوفيق

[IBRA99000]

شكرا ماقصرت حبيب