I think i found a way. It's not very professional but it get's the job done.
The thing is that by inserting the dwg, comes also the block reference inside the dwg separately.
Dim ipt(0 To 2) As Double
Dim B As AcadBlockReference
ipt(0) = 0: ipt(1) = 0: ipt(2) = 0
Set B = ThisDrawing.ModelSpace.InsertBlock(ipt, "I:\ID_EL_DWG.dwg", 1#, 1#, 1#, 0)
Set B = ThisDrawing.ModelSpace.InsertBlock(ipt, "ID_EL", 1#, 1#, 1#, 0)
So after the first .InsertBlock i wil have two references: ID_EL_DWG (wich i just inserted) and ID_EL (the block reference in the drawing i just inserted).
Then i can just erase the dwg and reinsert my wanted block, being assignet to the "B" object, making it ready to be tag-edited