Не могу справиться с методом AddItem для SelectionSet

Option Explicit
Const BLK_1 As String = "block1"
Const BLK_2 As String = "block2"
Const BLK_3 As String = "block3"
Sub MySelect()
    Dim SwitchesInDwg As AcadSelectionSet
    Dim TrimmingCircles As AcadSelectionSet
    On Error Resume Next
    With ThisDrawing.SelectionSets
        .Item("Switches").Delete
        .Item("TrimmingCircles").Delete
        Set SwitchesInDwg = .Add("Switches")
        Set TrimmingCircles = .Add("TrimmingCircles")
    End With
    ThisDrawing.SelectionSets("Switches").Clear
    ThisDrawing.SelectionSets("TrimmingCircles").Clear
    Dim FilterType(4) As Integer
    Dim FilterData(4) As Variant
    FilterType(0) = -4: FilterData(0) = "<or"
    FilterType(1) = 2: FilterData(1) = BLK_1
    FilterType(2) = 2: FilterData(2) = BLK_2
    FilterType(3) = 2: FilterData(3) = BLK_3
    FilterType(4) = -4: FilterData(4) = "or>"
    SwitchesInDwg.Select acSelectionSetAll, , , FilterType, FilterData
    Dim Counter1 As Integer
    Dim I As Integer
    Dim blkName As String
    Dim SubEnt As AcadCircle
    Counter1 = SwitchesInDwg.Count - 1
    Dim CirclesCollection As New Collection
    For I = 0 To Counter1
        blkName = SwitchesInDwg.Item(I).Name
        For Each SubEnt In ThisDrawing.Blocks.Item(blkName)
            If SubEnt.ObjectName = "AcDbCircle" Then
                [b]CirclesCollection[/b].Add SubEnt
            End If
        Next SubEnt
    Next I
    ReDim [b]CirclesInSwitches[/b](CirclesCollection.Count - 1) As AcadCircle
    I = 0
    For Each SubEnt In CirclesCollection
        Set CirclesInSwitches(I) = SubEnt
        I = I + 1
    Next SubEnt
'    Err.Clear
'    TrimmingCircles.AddItems CirclesInSwitches
'    MsgBox Err.Description
End Sub