Dim numAmount , numSum , count As Integer
Console.Write("Enter the number of values you want to average")
numAmount = Console.ReadLine()
For I As Integer = 1 to numAmount
Console.Write("Enter a number you wnat to inclde in your average")
numAverage = numSum / count
Console.WriteLine("The average of your numbers is = " & numAverage)