...Nrow = Application.WorksheetFunction.Match(Xval, x, IIf(x(1) > x(x.Count), -1, 1))
INTER1 = Y(Nrow) + (Xval - x(Nrow)) / (x(Nrow + 1) - x(Nrow)) * (Y(Nrow + 1) - Y(Nrow))
If Xval < x(1) Or Xval > x(x.Count) Then
INTER1 = 0
Else
Nrow = Application.WorksheetFunction.Match(Xval, x...