Module ConsoleCalc

   Sub Main()

       'Variables
       Dim Num, TotalNums, Sum As Integer

       'Print out info and prompt
       Console.WriteLine("Enter a series of numbers below, one in each line.")
       Console.WriteLine("When you want to end, enter -1")

       'Init Vars
       TotalNums = 0
       Sum = 0

       'Loop till -1 is entered
       Do

           'Accept a number
           Num = CType(Console.ReadLine, Integer)

           'Check if number is not -1, then add to sum and increment turn
           'If you don't introduce this second check, even the -1 will be counted as a number
           'is the series and added to it - also the total numbers entered will be wrong
           'and throw the average off
           If Num <> -1 Then

               'Add to sum
               Sum += Num

               'Increment Turn
               TotalNums += 1

           End If

       Loop While Num <> -1

       'Print the results
       Console.WriteLine("Total numbers entered: " & TotalNums)
       Console.WriteLine("Sum of all numbers: " & Sum)
       Console.WriteLine("Average: " & Sum / TotalNums)

   End Sub

End Module

     
 'Print results
       Console.WriteLine("Total Numbers: " & TotalNumbers)
       Console.WriteLine("Sum of scores: " & Sum)
       Console.WriteLine("Average of scores: " & Sum / TotalNumbers)
       Console.WriteLine("")
       Console.WriteLine("Press return to continue...")
       Console.ReadLine()