Private Function IsExsist(ByVal obj As Object, ByVal index As Long) As Boolean
Dim o As Object
For Each o In obj
If o.index = index Then
IsExsist = True
Exit Function
End If
Next o
IsExsist = False
End Function