Imports System

Public Module Module1

    Public Sub Main()

        Dim Mean As Decimal

        Dim Highest As Decimal = -9999999

        Dim Lowest As Decimal = 9999999

        Dim Total as Decimal

        Dim Number As Decimal

        For Loopcounter = 1 to 10

        Console.WriteLine("Enter Number " & Loopcounter)

        Number = Console.ReadLine

        Total = Total + Number

        Mean = Total/Number

        If Number > Highest then

            Highest = Number

            If Number < Lowest then

                Lowest = Number

            End if

        End if

    Next

        Console.WriteLine("Total = " & Total)

    Console.Writeline("Mean = " & Mean)

    Console.WriteLine("Highest = " & Highest)

    Console.WriteLine("Lowest = " & Lowest)

    End Sub

End Module