[VBA] コレクションに、ある値が存在するかチェックする方法

Function isMemberOfCollection(col As Collection, query) As Boolean
    Dim item
    
    For Each item In col
        If item = query Then
            isMemberOfCollection = True
            Exit Function
        End If
    Next
    
    isMemberOfCollection = False
    
End Function

If isMemberOfCollection(myCollection, myValue) Then
    MsgBox "エラー：" & vbLf & vbLf _
     & "値が重複しています。" &  myValue
    End
End If