Epermanenly Erased Message AutoCAD VB.net

[muck]

Using AutoCAD 2013 & Visual Basic in VS 2010.

 

I get the message Epermanenly Erased in the following code.

 

Dim ObjAcadId As ObjectId()

MsgBox("Ref Block FAULT")

ObjAcadId = idArray ' SINGLE BLOCK CHANGE IN SELECTION SET

MsgBox("Ref Block FAULT-1")

 

For Each blkId As ObjectId In ObjAcadId ' idArray for individual blocks

MsgBox("Ref Block FAULT-2")

Dim blkRef As BlockReference = DirectCast(tr.GetObject(blkId, OpenMode.ForRead), BlockReference)

MsgBox("Ref Block FAULT-3")

 

 

The code has problems going form message "Ref Block Fault-2" to "Ref Block Fault-3"

I think it has something to do with blkId variable.

 

Any Suggestion on how to trouble shoot this?

Thank you,