Imports System

Public Module Module1

    Public Sub Main()

        Dim X,T, I as double 

        T=0

         I=1.00417

        Console.Write(" Enter the mouthly saving amount ")

         x=Console.ReadLine()

        T = x * I

        T=(T+x) * I

        T=(T+x) * I 

        T=(T+x) * I

        T=(T+x) * I

        T=(T+x) * I

        Console.WriteLine(" after sixth mouth, the account value is " & T)

    End Sub

End Module