Block insert?

Okay, I searched and could not find the answer. It seems as though I'm doing it correct, but it isn't working - here's the code anybody know why it's not working?//
Dim VarInspHold As Variant
Dim StrBrdrName As String
VarInspt(0) = 0#
VarInspt(1) = 0#
VarInspt(2) = 0#
StrBrdrName = "H:\CADADMIN\BLOCKS\AFORMAT.dwg"
ThisDrawing.ModelSpace.InsertBlock VarInspt, StrBrdrName, 2.5, 2.5, 2.5, 0
I have tried several different ways and can't seem to get it to work, I get an invalid procedure or callout error.

Thanks
Dave. K

 

Dave,

Could be that you need to dim the variable for the insertion point:

Dim VarInspt(2) as Double

Wayne

doing it correct, but it isn't working - here's the code anybody know why
it's not working?//

get an invalid procedure or callout error.

 

What a moron!! I did have the insertion point dimensioned, but as a variant - I changed it to be a double and it works fine.
Thanks
KingMORON.
If ya can't laugh at yourself,
You need a break.