[أبو أحمد الحربي]

وعليكم السلام ورحمة الله وبركاته
تفضل هذا الكود

PHP كود :

Imports System.Text.RegularExpressions 


في الزر الاول وهو "الموجد في 1 وليس موجود في 2"

PHP كود :

Dim T As MatchCollection
        Dim Txt As String = ""
        For Each x As String In TextBox1.Text.Split(",")
            T = Regex.Matches(TextBox2.Text, x)
            If T.Count = 0 Then Txt &= x & Space(3)
        Next
        MsgBox(Txt) 


وفي الثاني "الموجود في 2 وليس موجود في 1"

PHP كود :

Dim T As MatchCollection
        Dim Txt As String = ""
        For Each x As String In TextBox2.Text.Split(",")
            T = Regex.Matches(TextBox1.Text, x)
            If T.Count = 0 Then Txt &= x & Space(3)
        Next
        MsgBox(Txt)