Определить приближенное значение функций - VB

Private Sub Command1_Click()
    Dim x As Double, x0 As Double, x1 As Double
    x0 = 1
    x1 = 2
    x = 1.5
    MsgBox "Значение х, вычисленное с помощью функции интерполяции : " & _
           LineInterpolation(x, x0, 2 * Sin(x0), x1, 2 * Sin(x1)) & vbCrLf & _
           "Проверка : " & (2 * Sin(x))
End Sub
 
Private Function LineInterpolation(ByVal x As Double, ByVal x1 As Double, ByVal fx1 As Double, ByVal x2 As Double, ByVal fx2 As Double) As Double
    If (x2 - x1) <> 0 Then LineInterpolation = fx1 + ((fx2 - fx1) / (x2 - x1)) * (x - x1)
End Function