Get intersection points for unconnected line

How to get the intersection point between two unconnected lines using vba (similar to intersect snap) as shown in screenshot given below?

Parents Reply Children
No Data