함수 파라미터로 캐드 오브잭트 넘기기

아래와 같이 코딩해서 xdata에 값을 저장하는 프로시져를 만들고 그 함수에 파라미터로 오브잭트를 넘겨 줬는데 런타임 에러가 나네요.
sub test()
Dim ssetObj As AcadSelectionSet
Set ssetObj = ThisDrawing.SelectionSets.Add(“SSET”)
ssetObj.SelectOnScreen ‘선택받구
Dim entry As AcadObject
For Each entry In ssetObj
mysetxdata(entry) ‘이부분 런타임 오류
Next
end sub

Private Sub mysetxdata(obj As AcadObject)
‘넘어온 오브잭트에 xdata를 할당할려구 함
.
.
obj.SetXData DataType, Data
End Sub

“객체가 이 속성 또는 메서드를 지원하지 않습니다.”라는 런타임 오류가
발생합니다. 오브젝트 설정이 잘못된건가요 캐드, vba초보가 무지 해메구
있습니다.