Dim Liste1 As Integer, Liste2 As Integer
Dim Wert1 As String, Wert2 As String
 
List3.Clear
 
For Liste1 = 0 To List1.ListCount - 1
  Wert1 = List1.List(Liste1)
 
  For Liste2 = 0 To List2.ListCount - 1
    Wert2 = List2.List(Liste2)
 
    If Wert2 = Wert1 Then
      List3.AddItem Wert2
    End If
  Next Liste2
 
Next Liste1