Imports System

Public Module Module1

    Public sub Main()

        Dim i as Integer

        Dim nIn as Decimal

        Dim sum as Decimal 

        sum=0

        For i= 1 to 10

        Console.Writeline("Enter a number")

        nIn=Console.Readline()

        'This is how we add up sum

        sum=nIn+sum

    Next

    Console.writeline(sum)

    End sub

End Module