[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