Imports System

Public Module Module1

    Public Sub Main()

        Dim Count, Number, Total, Highest, Lowest As Integer

        Dim Average As Decimal

        Count = 0

        Total = 0

        Highest = 0

        Lowest = 9999999

        Console.WriteLine("Enter number or -1 to end")

        Number = Console.ReadLine()

        Do While Number > 0

            Count = Count + 1

            Total = Total + Number

            If Number > Highest Then

                Highest = Number

            End If

            If Number < Lowest Then

                    Lowest = Number

            End If

            Console.WriteLine("Enter number or -1 to end")

            Number = Console.ReadLine()

        Loop 

        Average = Total / Count

        Console.WriteLine("Count = " & Count)

        Console.WriteLine("Total = " & Total)

        Console.WriteLine("Average = " & Average)

        Console.WriteLine("Lowest = " & Lowest)

        Console.WriteLine("Highest = " & Highest)

    End Sub

End Module