Почему не работает??? Help

Sub MySub()
    Dim MySelSet As AcadSelectionSet
    On Error Resume Next
    ThisDrawing.SelectionSets("MySet").Delete
    Set MySelSet = ThisDrawing.SelectionSets("MySet")
    Dim MyObjSet() As AcadEntity
    ReDim MyObjSet(0 To (ThisDrawing.ModelSpace.Count - 1)) As AcadEntity
    Dim X As Integer
    X = 0
    Dim i As Integer
    MySelSet.Clear
    With ThisDrawing.ModelSpace
        Do
            If ((.Item(X).ObjectName = "AcDbPolyline") And (.Item(X).Layer Like "Category*")) Then
                Set MyObjSet(i) = .Item(X)
                i = i + 1
            End If
            X = X + 1
        Loop Until (X = (ThisDrawing.ModelSpace.Count - 1))
    End With
    ReDim Preserve MyObjSet(0 To i) As AcadEntity
    MySelSet.AddItems MyObjSet
End Sub

Set MySelSet = ThisDrawing.SelectionSets("MySet")

Set MySelSet = ThisDrawing.SelectionSets.[b]Add("MySet")[/b]

Sub MySub()
    Dim MySelSet As AcadSelectionSet
    On Error Resume Next
    ThisDrawing.SelectionSets("MySet").Delete
    Set MySelSet = ThisDrawing.SelectionSets.Add("MySet")
    Dim MyObjSet() As AcadEntity
    ReDim MyObjSet(ThisDrawing.ModelSpace.Count)
    Dim X As Integer
    Dim i As Integer
    X = 0
    i = 0
    With ThisDrawing.ModelSpace
        Do
            If ((.Item(X).ObjectName = "AcDbPolyline") And (.Item(X).Layer Like "Category*")) Then
                Set MyObjSet(i) = .Item(X)
                i = i + 1
            End If
            X = X + 1
        Loop Until (X = ThisDrawing.ModelSpace.Count)
    End With
    ReDim Preserve MyObjSet(0 To i) As AcadEntity
    MySelSet.AddItems MyObjSet
End Sub

Sub SetByFilter()
    Dim MySelSet As AcadSelectionSet
    On Error Resume Next
    ThisDrawing.SelectionSets("MySet").Delete
    Set MySelSet = ThisDrawing.SelectionSets.Add("MySet")
    On Error GoTo 0
    Dim gpCode(0 To 3) As Integer
    Dim dataValue(0 To 3) As Variant
    gpCode(0) = -4: dataValue(0) = "<AND"
    gpCode(1) = 0: dataValue(1) = "LWPOLYLINE"
    gpCode(2) = 8: dataValue(2) = "Category"
    gpCode(3) = -4: dataValue(3) = "AND>"
    Dim groupCode As Variant, dataCode As Variant
    groupCode = gpCode
    dataCode = dataValue
    MySelSet.Select acSelectionSetAll, , , groupCode, dataCode
End Sub