[VBA程序]：AddLightWeightPolyline不能创建可变的多线段吗？

misters

Dim points(0 To 5) As Double

' 为二维多段线顶点赋值
points(0) = 2: points(1) = 4
points(2) = 4: points(3) = 2
points(4) = 6: points(5) = 4

Set plineObj = doc1.ModelSpace.AddLightWeightPolyline(points)

上面的没有任何问题

但如果我有一个字符串如下：
dim objstr as string=
"0,0|740.4857,0|740.4857,-89.8498|0,-89.8498"
通过objstr创建一个多线段，怎么老是出错呢？

            'db是ado的一个记录集 dim db as new adodb.recordset

            Dim points
            dim objsum,i as integer

            objstr = Replace(objstr, "|", ",")
            points = Split(objstr, ",")
            objsum = db("summit_sum") * 2 - 1  'db("summit_sum") 是多线段的顶点个数

            ReDim repoints(0 To objsum) As double
           'ReDim repoints(0 To objsum) As variant  这两种定义方式都不行
           ''ReDim repoints(0 To objsum)

            For i = 0 To objsum
                repoints(i) = points(i)
                Debug.Print points(i)
            Next

            Set plineObj = doc1.ModelSpace.AddLightWeightPolyline(points)
            '这一句添加时老是出错：无效的过程调用或参数
            '我试了上面好几种定义方式都不行，