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?