how to add node at specific position in VBA

[aakkaarr]

how to add node at specific position in VBA

[shark]

use Segment.AddNodeAt or SubPath.AddNodeAt

[aakkaarr]

how to use Segment.AddNodeAt
If I select a point on active curve by using Getuserclick which gives me x,y coordinates
e.g.
clicks = xyClicks
x = clicks(1)
y = clicks(2)

Public Function xyClicks()
Dim x As Double, y As Double, Shift As Long
Dim clicks(1 To 2) As Double
If ActiveDocument.GetUserClick(x, y, Shift, 5, False, CursorShape:=301) <> 0 Then xyClicks
clicks(1) = x
clicks(2) = y
xyClicks = clicks
End Function

[shark]

use FindSegmentAtPoint(x,y,ofs) to find segment, then AddNodeAt ofs to create node