コレクションから別のコレクションにオブジェクトを1つ追加する

Question

CASNというクラスを作成しましたが、このクラスには2つの変数があります（ここではそれほど重要ではありません）。基本的に私がしようとしているのは、新しいコレクションを作成し、元のコレクションの特定の基準に基づいてアイテムを追加することです。

compareコレクションが作成されたら、2つのコレクションを互いに比較し、重複した値を別の新しいresultコレクションに保存します。

Public Function FindDuplicates(col As Collection, wk As String) As Collection 

    Dim numOrig As CASN 
    Dim numComp As CASN 
    Dim result As Collection 
    Dim compare As Collection 

    For Each numOrig In col 
     If (numOrig.Week <> wk) Then 
     Set numComp = New CASN 
     Debug.Print numOrig.Addressxl '''' ERROR HERE 
     numComp.Addressxl = numOrig.Addressxl 
     compare.Add numComp 
     End If 
    Next numOrig 

'''''''''' OTHER PROCEDURES 

End Function 

EDIT：

私は不要なコードの多くを削除し、上記のコードにまで問題を特定しようとしています。コレクションに関数が渡されているように見えますか？

実行時エラー '13'：

型の不一致

Answer 1

Debug.Print文はStringにCASN.Addressxlを変換しようとし、それを行うには失敗しています。

関連するタイプを確認します。