difference selectionsets in vba and vb6

[tiziano69]

Good morning, I have a vba program that works regularly, I tried to bring it to vb6 but "adss" does not fill with drawing objects, I tried in all ways but I failed. Why?

dim adss as autocad.acadselectionset
dim adtext as autocad.acadentity

set adss = thisdrawing.selectionsets("adss") 'Cause it doesn't fill up ftype(0) = -4: fdata(0) = "<or"
ftype(1) = 0: fdata(1) = "text"
ftype(2) = 0: fdata(2) = "mtext"
ftype(3) = -4: fdata(3) = "or>"
'ftype(0) = 0: fdata(0) = "text"
'ftype(1) = 0: fdata(1) = "mtext"

adss.select acselectionsetall, , , ftype, fdata

for each adtext in adss
pt = adtext.insertionpoint
........
........