Imports System

Public Module Module1

    Public Sub Main()

        dim money as decimal                  'These values help with the formula needed to change the users starting balance, interest and desired balance.' 

        dim year as integer

        dim interest as decimal

        dim target as decimal

        console.WriteLine("How much money do you have now? (GBP)")

        money = console.Readline

        console.WriteLine("How much interest do you recieve (in percentage)?")

        interest = console.ReadLine()                                                             'These questions estabalish the users values' 

        console.WriteLine("How much money do you want (GBP) ?")

        target = console.ReadLine()

        year = 0                                                               'This command makes sure all years the user inputs are counted correctly'

        Do

            year = year + 1

            money = money * (interest / 100 + 1)                'This formula determines the number of years the user would need to reach their desired value whilst showing thier yearly balance'

            console.WriteLine("Year " & year & ": Your balance is £" & money & ".")

            console.WriteLine(" ")

        loop until money >= target  

    End Sub

End Module