Imports System

Public Module Module1

    Public Sub Main()

        Dim a, b, c, e as string

        Console.Writeline("Hello welcome to the intrest calcualtor please etner your starting amount and your interest increases after 1 year")

        B = Console.ReadLine()

        C = Console.Readline()

        a = b*c

        e= a + b

        Console.Writeline("Your moeny after intrest for 1 year is " & e)

    End Sub

End Module