Dim x As Integer
Dim y As Integer
 
Dim array1() As String
Dim array2() As String
Dim tmp As Integer
 
For x = 0 To UBound(array1)
    For y = 0 To UBound(array2)
 
        tmp = array2(x)
 
        If tmp = array1(y) Then
           ReDim Preserve array1(UBound(array1) + 1)
                          array1(UBound(array1)) = array2(y)
        End If
    Next y
Next y

Computer?
Ist das wieder so ein neumodischer Mist?