R = -0.01
x = 65

MsgBox 1 - Exp(R * x)