Imports System

Public Module Module1

    Public Sub Main()

            'set up variables to hold values for amounts and interest'

        Console.Write("Please enter start amount: £")

        dim startamount as decimal = console.readline()

        console.Write("please enter target amount: £")

        dim targetamount as decimal = console.readline()

        console.Write("please enter interest rate (eg for 4% enter 4): ")

        dim interest as decimal = console.readline()

        dim NoOfYears as integer = 0

        do

          startamount = StartAmount * (1 + Interest/100)

          NoOfYears = NoOfYears + 1

        Loop until StartAmount >= targetamount

        Console.Writeline("Reached target in " & NoOfYears & "year(s).")

​

    End Sub

End Module