Dim highest as integer = 0
Dim Lowest as Integer = 999999999
Dim LoopCounter as Integer
For LoopCounter = 1 to 10
Console.WriteLine("Enter Number " & LoopCOunter)
Numbers = Console.ReadLine()
If Numbers > Highest Then
Console.WriteLine("Total:" & Total & " Mean:" & Mean & " Highest:" & Highest & " Lowest:" & Lowest)