Сравнить 2 коллекции.

[kibernetics]

Есть ли способ безо всяких переборов сравнить 2 коллекции?
Пример кода:
Dim col1 As cModels
Dim col2 As cModels
Dim col3 As cModels

Set col1 = New cModels
Set col2 = New cModels
Set col3 = New cModels

With col1
.lVendorID = 1
.sModel = "test"
End With

With col2
.lVendorID = 1
.sModel = "test2"
End With

With col3
.lVendorID = 1
.sModel = "test"
End With
но все между собой False, если так сравнить:
?col1 is col1
True
?col1 is col2
False
?col1 is col3
False

А надо, чтоб col1 = col3

[alibek]

Перебираешь элементы коллекции и сравниваешь значения (для скаляров) или атрибуты (для объектов).
Либо реализуешь интерфейс для сравнения/сериализации и сравниваешь с их помощью.