Dim futureVal As Single
        Dim presentVal As Single
        Dim interest As Single
        Dim perid As Integer

        presentVal = TextBox1.Text
        interest = TextBox2.Text
        perid = TextBox3.Text

        futureVal = presentVal * (1 + interest / 100) ^ perid
        Label5.Text = Format(futureVal, "$#,##0.00")