Imports System

Public Module Module1

    Public Sub Main()

        Dim noOfyears as integer

        Console.Writeline("Please input the number of years needed:")

        noOfyears = Console.Readline()

        Dim balance as decimal

        Console.Writeline("Please input the starting balance:")

        Balance = Console.Readline()

        Dim years as integer = 0 

        Do

            balance = balance * 1.04

        Loop until years = noOfyears

        Console.Writeline("After " & noOfyears & "years we now have £" & balance.tostring("F2"))

    End Sub

    End Module