1. Use the InsertBlock method (if I understand you correctly)
2. You define the coordinates for the block placement (ie dInsPt) as shown below.
Set acBlkRef = ThisDrawing.ModelSpace.InsertBlock(dInsPt, _
strBlkName, dblScale, dblScale, dblScale, 0)
"Everybody is ignorant, only on different subjects." — Will Rogers