This might help
{code}
Dim tm As Autodesk.AutoCAD.DatabaseServices.TransactionManager _
= Application.DocumentManager.MdiActiveDocument.Database.TransactionManager
Using tr As Transaction = tm.StartTransaction
Dim objID As ObjectId
objID = ' your id
Dim Ent As Entity = CType(tr.GetObject(objID, OpenMode.ForRead), Entity)
If TypeOf Ent Is BlockReference Then
Dim blk As BlockReference
blk = Ent
MsgBox(blk.Name)
End If
End Using
{code}
---------------------------
(defun botsbuildbots() (botsbuildbots))