Sub Main()
        Dim inputting As Boolean = True

        Dim numArray As ArrayList = New ArrayList

        Do
            Console.WriteLine("Enter -999 to get the average of your numbers inputted.")
            Console.WriteLine("Input a number to add to your average:")
            Dim input As Integer = Console.ReadLine
            If (input = -999) Then
                inputting = False
            Else

                numArray.Add(input)
                Console.WriteLine(input & " has been added to your numbers list.")

            End If

        Loop While (inputting)

        Console.WriteLine("Your average is: " & average(numArray))
        Console.Read()

    End Sub

    Function average(ByVal array As ArrayList) As Double

        Dim i As Integer
        Dim ave As Double
        Dim sum As Integer = 0
        Console.WriteLine(array.ToArray.Length & "")

        For i = 0 To array.ToArray.Length - 1
            sum += array(i)
        Next i
        ave = sum / array.ToArray.Length
        Return ave

    End Function