VBA - Remove both items from array when not unique
===

Quick question that I've been struggling with. I have 2 arrays of different lengths that contain strings.
I want to output a new array which removes BOTH the elements if a duplicate is detected. At the moment it only removes duplicates but leaves the original which is incorrect for what I am trying to accomplish.

E.g.

    input = array ("cat","dog","mouse","cat")  
    expected output =  array ("dog","mouse")  
    actual output = array ("cat","dog","mouse","cat")  

Code is below:

    Sub removeDuplicates(CombinedArray)
    Dim myCol As Collection
    Dim idx As Long
    Set myCol = New Collection
    
    On Error Resume Next
    
    For idx = LBound(CombinedArray) To UBound(CombinedArray)
        myCol.Add 0, CStr(CombinedArray(idx))
        If Err Then
            CombinedArray(idx) = Empty
            dups = dups + 1
            Err.Clear
        ElseIf dups Then
            CombinedArray(idx - dups) = CombinedArray(idx)
            CombinedArray(idx) = Empty
        End If
    Next
    
    For idx = LBound(CombinedArray) To UBound(CombinedArray)
        Debug.Print CombinedArray(idx)
    Next
    removeBlanks (CombinedArray)
    End Sub

Thanks for all help and support in advance.