Dim Balance, interest, target as Decimal
Console.WriteLine("Please enter starting balance")
Balance = Console.ReadLine()
Console.WriteLine("Please enter interest rate (e.g. for 6% enter 6)")
interest = Console.ReadLine()
Console.Write("Please enter target balance")
target = Console.ReadLine()
balance = balance + (interest/100 + 1)
Console.WriteLine("Year" & year & " - Balance is £" & balance)
Loop until balance >= target