[VB_Coder]

السلام عليكم

- هذا هو الكود :

كود :

Private Sub Command1_Click()

Dim zNames1() As String
Dim zNames2() As String

zNames1 = Split(Trim$(Text1.Text), vbCrLf)
zNames2 = Split(Trim$(Text2.Text), vbCrLf)

If UBound(zNames1) > -1 And UBound(zNames2) > -1 Then

   Dim I, N As Integer
  
   Text3.Text = ""
  
   For I = LBound(zNames1) To UBound(zNames1)
  
       For N = LBound(zNames2) To UBound(zNames2)
           If Trim$(zNames1(I)) = Trim$(zNames2(N)) Then
              Exit For
           Else
              If N = UBound(zNames2) Then
                 Text3.Text = Text3.Text & Trim$(zNames1(I)) & vbNewLine
              End If
           End If
       Next
      
   Next
      
End If

End Sub

- تحياتي .