Insertionpoint through handle
If you know an AcadEntity's handle, you can call AcadDocument.HandleToObject() to get an AcadObject. Something like:
Private Function GetInsertionPointByHandle(handleVal As string) As Variant
Dim obj As AcadObject
Dim blk As AcadBlockReference
Dim pt As Variant
'' If your code is BV6, not VBA in AutoCAD, you need to
'' obtain your own "ThisDrawing" object
Set obj = ThisDrawing.HandleToObject(handleVal)
If TypeOf obj Is AcadBlockReference Then
Set blk = obj
pt=blk.InsertionPoint
End If
GetInsertionPointByHandle = pt
End Function
