Visual Basic para Aplicaciones - Validar Funcion

Function InterExtraP(xi#, X As Excel.Range, Y As Excel.Range)

    ' --- extrapolar hacia abajo

    If X(1) > xi Then

        i = 1

        InterExtraP = Y(i) + (xi - X(i)) * (Y(i + 1) - Y(i)) / (X(i + 1) - X(i))

        '

        ' -- NOTA MIA -- Aqui i siempre tendrá un valor de 1 por lo que voy a simplificar

        '

        InterExtraP = Y(1) + (xi - X(1)) * (Y(2) - Y(1)) / (X(2) - X(1))

        '

        Exit Function

    End If

    ' --- interpolar

    i = Application.WorksheetFunction.Match(xi, X)

    ' --- extrapolar hacia arriba

    If X.End(xlDown) < xi Then

        i = i - 1

    End If

    InterExtraP = Y(i) + (xi - X(i)) * (Y(i + 1) - Y(i)) / (X(i + 1) - X(i))

End Function