Private Sub Form_Load()
 
  Dim dic1 As New Dictionary
  Dim dic2 As New Dictionary
 
  Dim result As New Dictionary
 
  Dim s1 As String
  Dim s2 As String
 
  Dim as1 As Variant
  Dim as2 As Variant
 
 
  s1 = "PC2, PC1, PC3, PC6, PC5, PC8, PC11"
  s2 = "PC1, PC7, PC6, PC9, PC11, PC3, PC10, PC5"
 
  as1 = Split(s1, ",")
  as2 = Split(s2, ",")
 
  Dim i As Integer
  For i = LBound(as1) To UBound(as1)
    dic1.Add Trim$(as1(i)), Trim$(as1(i))
  Next i
 
  For i = LBound(as2) To UBound(as2)
    dic2.Add Trim$(as2(i)), Trim$(as2(i))
  Next i
 
  Dim aKey As Variant
 
  For Each aKey In dic1
    If dic2.Exists(aKey) Then
      dic2.Remove aKey
    Else
      result.Add aKey, aKey & " abgebaut"
    End If
  Next aKey
 
  For Each aKey In dic2
    result.Add aKey, aKey & " aufgebaut"
  Next aKey
 
  For Each aKey In result
    Debug.Print result(aKey)
  Next aKey
 
End Sub

Gruß
Dirk

--
?Get it right the first time