GetIntersectionPoints method

I am using (LineElement.)getIntersectionPoints method to find the number of intersection points between two specific line elements. In some case, there is no intersection between the lines. But the getintersectionPoints method returns a intersection point. Sample DGN is attached and the sample code is given below for your reference. How to solve this issue?

Option Explicit

Public Sub test()
Dim eleEn As ElementEnumerator
Dim ele1 As LineElement
Dim ele2 As LineElement
Dim intersectPts() As Point3d

Set eleEn = ActiveModelReference.GetSelectedElements
eleEn.MoveNext
Set ele1 = eleEn.Current
eleEn.MoveNext
Set ele2 = eleEn.Current
intersectPts = ele1.GetIntersectionPoints(ele2, Matrix3dIdentity)
Debug.Print UBound(intersectPts)
End Sub

intersectSample.dgn