Imports System

Public Module Module1

    Public Sub Main()

        Dim i As Integer

        Dim num As Decimal

        Dim sum As Decimal

        sum = 0

        For i = 1 To 10

            Console.WriteLine("Enter a number")

        num = console.readline

            sum = num + sum

        Next

        Console.WriteLine(sum)

    End Sub

End module