Function MEMS3(wolty As Double)
Dim a, b, c, d, e, f, g, h, i, j As Double
a = (wolty - 1) / ((2.3 - 1) / 100)
b = (wolty - 2.3) / ((2.96 - 2.3) / 100) + 100
c = (wolty - 2.96) / ((3.41 - 2.96) / 100) + 200
d = (wolty - 3.41) / ((3.82 - 3.41) / 100) + 300
e = (wolty - 3.82) / ((4.18 - 3.82) / 100) + 400
f = (wolty - 4.18) / ((4.42 - 4.18) / 100) + 500
g = (wolty - 4.42) / ((4.66 - 4.42) / 100) + 600
h = (wolty - 4.66) / ((4.8 - 4.66) / 100) + 700
i = (wolty - 4.8) / ((4.9 - 4.8) / 100) + 800
j = (wolty - 4.9) / ((5 - 4.9) / 100) + 900

If wolty < 1 Or wolty > 2.3 Then
a = 0
End If

If wolty <= 2.3 Or wolty > 2.96 Then
b = 0
End If

If wolty <= 2.96 Or wolty > 3.41 Then
c = 0
End If

If wolty <= 3.41 Or wolty > 3.82 Then
d = 0
End If

If wolty <= 3.82 Or wolty > 4.18 Then
e = 0
End If

If wolty <= 4.18 Or wolty > 4.42 Then
f = 0
End If

If wolty <= 4.42 Or wolty > 4.66 Then
g = 0
End If

If wolty <= 4.66 Or wolty > 4.8 Then
h = 0
End If

If wolty <= 4.8 Or wolty > 4.9 Then
i = 0
End If

If wolty <= 4.9 Or wolty > 5 Then
j = 0
End If
MEMS3 = a + b + c + d + e + f + g + h + i + j
End Function