Imports System

Public Module Module1

    Public Sub Main()

        Dim Total as integer

        Dim Count as integer

        Dim Avg as integer

        Dim Num as integer

        Total = 0

    For Count = 1 to 10

        Console.WriteLine("Please enter your number " & Count)

        Num = console.ReadLine()

        Total = Total + Num

    Next

    Count = Count - 1

    Avg = Total / Count

    Console.WriteLine("The sum of the 10 numbers is : " & Total & " and your Average is : " & Avg) 

    End Sub

End Module