Imports System

Public Module Module1

    Public Sub Main()

        Dim Year as Integer

        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()

        year = 0

        Do

            year = year + 1

            balance = balance + (interest/100 + 1)

            Console.WriteLine("Year" & year & " - Balance is £" & balance)

        Loop until balance >= target

    End Sub

End Module