能不能把下面的vb句子转换成公式的语句

代人发帖

请教：能不能把下面的vb句子转换成公式的语句
（x1，y1），（x2，y2），（x3，y3） 依次是三个点
（x1，y1），（x2，y2），（x3，y3） ，x2 未知，其他都已知
Private Function FindX2(x1 As Double, y1 As Double, x3 As Double, y3 As Double, epsilon As Double) As Double
    Dim y2 As Double
    Dim left As Double
    Dim right As Double
    Dim mid As Double
   
    left = x1
    right = x3
   
    While (right - left) > epsilon
        mid = (left + right) / 2
        y2 = ((mid - x1) * (y3 - y1)) / (x3 - x1) + y1
        If y2 < 0 Then
            right = mid
        Else
            left = mid
        End If
    Wend
   
    FindX2 = mid
End Function

技术007

没看明白这段代码要实现什么样的目标，请您补充描述一些文字，谢谢。