Imports System

Public Module Module1

    Public Sub Main()

        dim years, interestrate, noyears as decimal

        dim total, upto, y as decimal

        dim onetwo, one, two as double

        'these lines create the variables

        years = 0 

        console.writeline("would you like 1, use years of interest or 2 go up to an amount")

        one = 1

        two = 2

        onetwo = console.readline()

        'this asks the user which mode would like to be used

        if onetwo = 1 then

        console.WriteLine("please enter years of interest on 1st line then interest rate as a decimal (eg. 5% = 0.05) on 2nd line and then amount in the account on 3rd line.")

        noyears = console.ReadLine()

        interestrate = console.readline()

        total = console.readline()

            'these lines get the numbers for the calculations to take place

        interestrate = interestrate + 1

        do

            total = total * interestrate

            years = years + 1

        loop until years = noyears

            'these lines are the calculation taking place

    console.writeline(total)

            'this outputs the total

        elseif onetwo = 2 then

            console.WriteLine("please enter interest rate on 1st line then number you would like to go up to on 2nd line and then amount in the account on 3rd line.")

            interestrate = console.Readline()

            upto = console.Readline()

            total = console.readline()

            'these lines collect the numbers for the calculation to take place

            do 

                total = total * interestrate

                years = years + 1

            loop until total = upto

            'these lines do the calculation

            console.writeline(years)

            'this outputs the years of interest

        else

            console.writeline("error")

        end if  

    End Sub

End Module