Future Value UserForm - Please Help

[needshelp12]

I am trying to make a userform to calculate Future Value

This is the code i am trying now , getting "Invalid Qualifier", can anyone help me get this running ?

Sub FutureValue1_Click()

Dim Value As Currency
Dim Rate As Double
Dim NumPayment As Double
Dim Payment As Double

Rate = Rate.Text
NumPayment = NumPayment.Text
Payment = Payment.Text
Presentvalue = Presentvalue.Text

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

FutureV.Text = LValue

End Sub

thanks !!!

 

[needshelp12]

I have changed the code around, and got the invalid qualifier error fixed.

Now i am getting an Overflow error.


Here is my Revised code:

option explicit

Sub FutureValue1_Click()

Dim Value As Currency
Dim Rate As Double
Dim NumPayment As Double
Dim Payment As Double
Dim Presentvalue As Integer

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

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



FutureV.Text = Value

End sub

If rate = 20
number of periods = 10
payment = 0
present value = -1000

I should get 6191.74 for my future value ?

Can anyone help ?