поиск второй координаты линии

Спасибо за совет. Уточняю программа задумывалась следующим образом: выделение первого отрезка (получение координат начала и конца отрезка, получение значение длины); вычисление второй координаты следующего отрезка  (это то мне и необходимо понять как вычислить)(первая координата второго отрезка совпадает c концом первого отрезка); вычисление длины второго отрезка ; суммирование длин первого и второго отрезка ; и так далее в цикле пока отрезки не закончаться
При этом все отрезки в одном слое, с одним типом линий, одним цветом, одной толщины.

Да вы правы это то что нужно. Только если вас не затруднит не могли бы обьяснить основную идею поиска концов отрезков. С конкретным примером кода. Буду очень благодарен.
P.S.Программа отлично работает.

Ага на VBA нужно.

> keypro
Если вопрос адресован мне, то -
идея более чем тривиальна:
Из имеющегося набора примитивов-линий выбираем координаты концов этих линий а затем сравниваем точки, все со всеми. Если в одном конце не начинается (или не заканчивается) другая линия, то это искомая точка разрыва.

'Перебор-сравнение точек:
Private Sub BreakPoint(PointSet As Collection, BreakPoints As Collection)
    Dim TerminPoint() As Double
    Dim Point() As Double
    Dim i As Integer
    Dim j As Integer
    Dim k As Boolean
    For i = 1 To PointSet.Count
        k = True
        TerminPoint() = PointSet(i)
'interior loop:
        For j = 1 To PointSet.Count
            Point() = PointSet(j)
            If (ToAgree(TerminPoint(), Point()) And (i <> j)) Then
                k = False
                Exit For
            End If
        Next j
        If (k) Then
            BreakPoints.Add TerminPoint()
        End If
   Next i
   Set PointSet = Nothing
End Sub
'Cравнение координат точек:
Private Function ToAgree(TerminPoint() As Double, Point() As Double) As Boolean
    ToAgree = False
    If ((CSng(TerminPoint(0)) = CSng(Point(0))) And (CSng(TerminPoint(1)) = CSng(Point(1)))) Then
        ToAgree = True
    End If
End Function

> keypro
Я сочинил эту программу давненько, и не расписал подробный комментарий, так что мне самому надо разбираться, что там к чему...
Но. В разделе выложен полный код и при желании можно все разложить по полочкам, что всегда полезно начинающим. Я бы посоветовал.
А i и j это счетчики цикла.