VBA get block attributes

[navsegdaep]

I wrote a program that extract block attributes from the current drawing. And it worked fine. After upgrading the computer my code stopped working.

In debugging mode I found the following problem:

(partial code)

 

Dim oEnt As AcadEntity

For Each oEnt In ThisDrawing.ModelSpace (problem line)

If TypeOf oEnt Is AcadBlockReference Then

Set blkTitle = oEnt

If blkTitle.Name = "Tag" And blkTitle.HasAttributes Then

aryAttributes = blkTitle.GetAttributes

shtObj.Cells(i + 1, 1) = aryAttributes(0).TextString

i = i + 1

End If

End If

Next

 

I'm getting

ThisDrawing.ModelSpace =

and on the next step

ThisDrawing.ModelSpace =

oEnt =

 

Please advise me how to fix it.