Поиск координат узлов кривых в Corel Draw 12

Sub GramPlus() 'Создана 15.12.2009 и рисует в документе заливаемых «ёжиков»'
N = 35 'Вообще срабатывает лишь при нечётном N > 4.'
 
    With ActiveDocument.Shapes.BuildFreeform(msoEditingAuto, x(1), y(1))
        For k = 2 To N / (2 - N Mod 2)
        .AddNodes msoSegmentLine, msoEditingAuto, x(k), y(k)
        Next k
        .AddNodes msoSegmentLine, msoEditingAuto, x(1), y(1)    'замыкание контура'
        .ConvertToShape.Select
    End With
End Sub

Sub macro2()
    Dim X1, Xn, Y1, Yn As Integer
    'рисуется кривая (в моём случае - уже есть)
    Dim crv1 As Curve
    Set crv1 = ActiveDocument.CreateCurve()
    With crv.CreateSubPath(0.704543, 8.65226) 'координаты первого узла первой кривой (x1, y1)
        .AppendLineSegment 2.281661, 8.505551
        .AppendLineSegment 3.950472, 7.735331 'координаты последнего узла (скобки не нужны)
    End With
    'рисуется вторая кривая
    Dim crv2 As Curve
    With crv.CreateSubPath(4.775709, 7.038465)
        .AppendLineSegment 6.261134, 5.644732
        .AppendLineSegment 6.866307, 4.581094 'координаты последнего узла второй кривой Xn, Yn
    End With
    'участок кода, который не могу создать, и о котором спрашиваю
    'рисуется прямая с координатами начала и конца (X1, Y1, Xn, Yn)
    Dim s1 As Shape
    Set s1 = ActiveLayer.CreateLineSegment(X1, Y1, Xn, Yn)
End Sub

With Selection.ShapeRange.Fill
    .Parent.Nodes.Delete 1             'удаление узла № 1 (стартового)
    .Visible = msoTrue                 'видимость заливки (видна)
    .Solid                             'характер заливки (сплошная)
    .ForeColor.RGB = RGB(255, 0, 255)  'заливка контура (цвет по RGB)
End With

    ActiveDocument.Unit = cdrMillimeter 'устанавливаем единицы измерения координат и длины
    Dim a, a1, b, b1, c, c1, d, d1 As Long 'объявляем переменные (почему работает именно Long - не знаю)
    Dim s1 As Shape 'объявляем переменную. Здесь Shape - внутренний тип Corel Draw
    Set s1 = ActiveLayer.Shapes(2) ' присваиваем переменной некую кривую
    Dim s2 As Shape
    Set s2 = ActiveLayer.Shapes(1)
    c = s2.Curve.Nodes.Count ' находим общее число узлов кривой.
    Dim s3 As Shape
    Set s3 = ActiveLayer.CreateLineSegment(s2.Curve.Nodes(c).PositionX, s2.Curve.Nodes(c).PositionY, s1.Curve.Nodes(1).PositionX, s1.Curve.Nodes(1).PositionY) ' создаём кривую, соединяющую первый узел одной кривой и последний другой
    If s3.PositionX <> ActiveLayer.Shapes(4).PositionX Then ' задаем критерии, по которым будет определяться на своём месте сидит нужная кривая или нет
        Dim dltx As Integer
        dltx = s3.PositionX - ActiveLayer.Shapes(4).PositionX
        ActiveLayer.Shapes(4).Move dltx, 0# ' сажаем кривую на место
    End If
    If s3.PositionY <> ActiveLayer.Shapes(4).PositionY Then
        Dim dlty As Integer
        dlty = s3.PositionY - ActiveLayer.Shapes(4).PositionY
        ActiveLayer.Shapes(4).Move 0#, dlty
    End If
    s3.Delete