Here's a bit of code that I use to insert blocks in VBA.(Simple version)
Dim BLkPath As String
Dim BLkNm As String
Dim x As Double
Dim y As Double
BLkPath = "\\servername\foldername\"
BLkNm = BLkPath & AcadDwgFile.dwg
call InsertBlk(Blknm,xCord,yCord)
Public Sub InsertBlk(BlkName As String, x As Variant, y As Variant)
Dim inspt(2) As Double
Dim Wblk As AcadBlockReference
inspt(0) = x: inspt(1) = y: inspt(2) = 0#
Set Wblk = ThisDrawing.ModelSpace.InsertBlock(inspt, BlkName, 1#, 1#, 1#, 0#)
End Sub
Hope this helps.
Ray C.
