On Error Resume Next
Dim sstext As AcadSelectionSet
Dim FilterType(0 To 5) As Integer
Dim FilterData(0 To 5) As Variant
Set sstext = ThisDrawing.SelectionSets.Add("SSS1")
If Err Then
Err.Clear
Set sstext = ThisDrawing.SelectionSets.Item("SSS1")
End If