For posListA = 0 To UBound(ListOriginal)
    For posListB = 0 To UBound(ListBackup)
        If Not ListOriginal(posListA) = ListBackup(posListB) Then
            If Not posListB < UBound(ListBackup) Then
                ReDim Preserve ListDiff(posListDi)
            ListDiff(posListDi) = ListOriginal(posListA)
        Debug.Print ListDiff(posListDi)
        posListDi = posListDi + 1
        posListB = 0
        Next posListA
    Else
        Next posListB
    End If
End If
 
End Sub