Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim balance as decimal

        dim interest as integer

        dim target as integer

        dim year as decimal

        Console.WriteLine("please enter your balance")

        balance = console.ReadLine()

        Console.WriteLine("Input your interest")

        Console.ReadLine()

        console.WriteLine("Please enter your 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

        if balance > target then

            console.WriteLine("You have enough")

        end if

    End Sub

End Module

​