请教：使用vbscript为AutoCAD在指定的位置插入块的问题？！

fatkids

各位好！
     我需要使用vbscript为AutoCAD在指定的位置插入块，如果使用鼠标点击返回的点插入程序不会有问题，程序如下：
       set AcadApp = createobject("AutoCAD.Application")
       AcadApp.Visible = true
  
       pt = AcadApp.ActiveDocument.Utility.GetPoint(,"选择插入点")  '此时的pt为double型数组

       set blockRef = AcadApp.ActiveDocument.ModelSpace.InsertBlock(pt, "e:\my_test.dwg", 1, 1, 1, 0)

但是，如果通过程序制定了插入点，就会报错，错误内容为：Microsoft VBScript runtime error: Invalid procedure call or argument（）。
程序如下：
       set AcadApp = createobject("AutoCAD.Application")
       AcadApp.Visible = true
  
       dim pt(2)   '此时的pt为variant型
       pt(0)=40.00
       pt(1)=50.00
       pt(2)=0.00

       set blockRef = AcadApp.ActiveDocument.ModelSpace.InsertBlock(pt, "e:\my_test.dwg", 1, 1, 1, 0)

不同点就在于pt类型不同，这个要怎么处理啊？请各位帮忙看看，谢谢啦！
不是说variant会自动转换吗？