선택시 필터링줄때 Xdata필드로 필터링 하는 방법좀?(vba에서)

선택시 xdata필드 1000, 1003, 1070 의 값을 가지구 필터링을 할려구 하는데 필터타입과 필터데이터를 어떤 형식으로 만들어 줘야되는지 모르겠군요 위 필드는 -3필드에 속한 서브필드이어서 이런 내용을 어떻게 구현해줘야 하는지 답변좀 부탁 할께요
아래는 껍대기 코드를 만들어 놨음니다.

Dim ssetObj As AcadSelectionSet
Set ssetObj = acad.ActiveDocument.SelectionSets.Add(“SSET”)
Dim Corner1(0 To 2) As Double
Dim Corner2(0 To 2) As Double
Corner1(0) = 0: Corner1(1) = 0: Corner1(2) = 0
Corner2(0) = 1000: Corner2(1) = 1000: Corner2(2) = 0
‘이 부분부터 모르겠네요
Dim gpCode(0 to 3) As Integer
Dim dataValue(0 to 3) As Variant

ssetObj.Select acSelectionSetCrossing, Corner1, Corner2, gpCode, dataValue