Overflow Error in Future Value Calcuation

[needshelp12]

I am getting a Overflow error with my code :

Sub FutureValue1_Click()

Dim Value As Long
Dim Rate As Double
Dim NumPayment As Double
Dim Payment As Double
Dim Presentvalue As Double


Rate = Rate1.Text
NumPayment = NumPayment1.Text
Payment = Payment1.Text
Presentvalue = Presentvalue1.Text

Value = fv(Rate, NumPayment, Payment, Presentvalue)

FutureV.Text = Value

End Sub

Can anyone figure out why i am getting this error , thanks !!

 

[JackDanIce]

Firstly, you should not use "value" as a variable name as it's already a key word in VBA (refers to the property of an object)

Secondly, you are then trying to apply a spreadsheet defined function within VBA code without telling the code that is what you are doing.

I think this is what you want:

Sub FutureValue1_Click()

Dim myValue As Long
Dim Rate As Double
Dim NumPayment As Double
Dim Payment As Double
Dim Presentvalue As Double

Rate = Rate1.Text
NumPayment = NumPayment1.Text
Payment = Payment1.Text
Presentvalue = Presentvalue1.Text

myValue = Application.fv(Rate, NumPayment, Payment, Presentvalue)

FutureV.Text = myValue

End Sub