'Both arrays must be equal in length
OUT = Array As Int(0,67,105,209,326,419,520,631,727,838,942,1040,1150,1253,1371,1462,1569,1682,1779,1881,1987,2078,2210,2315,2409,2513,2620,2730,2835,2944,3034,3150,6430,9518,15810,0)
INN = Array As Int(2,4 ,5 ,7 ,12 ,15 ,19 ,22 ,26 ,30 ,34 ,37 ,41 ,44 ,48 ,52 ,55 ,59 ,62 ,66 ,69 ,73 ,77 ,81 ,84 ,87 ,91 ,95 ,100 ,105 ,109 ,110 ,216 ,318 ,514,0)
Sub MultiCalibrate
Dim i As Int
Dim x As Long
x = PARAM(2)
For i = 0 To INN.Length-1
If (x <= INN(i)) OR (i >= INN.Length-2) Then
temp1 = (((x-INN(i))*(OUT(i)-OUT(i+1))/(INN(i)-INN(i+1))+OUT(i))/1000)
Exit
End If
Next
End Sub