свойство centroid, региона выдает ошибку

Sub test3()
    Dim outPlineObj     As AcadLWPolyline   ' полилиния, описывающая объект
    Dim PointsDblArr(7) As Double
    Dim RegEnt(0)       As AcadEntity       ' нужно для создания солида, и вычисления центра масс
    Dim TmpVar1         As Variant
    Dim TmpVar2         As Variant
    Dim OutRegionObj    As AcadRegion
    PointsDblArr(0) = -5:  PointsDblArr(1) = -5
    PointsDblArr(2) = -5:  PointsDblArr(3) = 5
    PointsDblArr(4) = 5:   PointsDblArr(5) = 5
    PointsDblArr(6) = 5:   PointsDblArr(7) = -5
    Set outPlineObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(PointsDblArr)
    ' замыкаем полилинию на всякий пожарный
    outPlineObj.Closed = True
    Set RegEnt(0) = outPlineObj
    TmpVar1 = ThisDrawing.ModelSpace.AddRegion(RegEnt)
    Set OutRegionObj = TmpVar1(0)
    Call OutRegionObj.Move(xyzToVrnt(0, 0, 0), xyzToVrnt(50, 50, 50))
    OutRegionObj.Update
    TmpVar2 = TmpVar1(0).Centroid
End Sub