Module Module1

    Sub Main()
        Dim Count As Integer = 0
        Dim Total As Integer
	Dim Limit As Integer
	Console.WriteLine("In what number do you want the adding to stop?")
	Limit = System.Console.ReadLine
        While Count < Limit
            Count = Count + 1
            Total = Count + Total
        End While
        Console.WriteLine(Total)

End Module