Average numbers

Option Strict On
Option Explicit On
Module Average
    Private num As InputN
    Private sum As Sumator
    Private print As Print
    Private N As Integer
    Private m As Integer
    Private a() As Integer
    Private outNumber As String
    Private average As Double
    Private outMaxN As String
    Sub Main()
        num = New InputN()
        If num.ReadNumber() Then
            N = num.Number()
            ReDim a(N - 1)
            For index = 0 To a.GetUpperBound(0) Step 1
                Console.Write("n: " & index & "= ")
                a(index) = CInt(Console.ReadLine())
            Next index
            sum = New Sumator()
            For elem = 0 To a.GetUpperBound(0) Step 1
                m = sum.Sum(m, a(elem))
            Next elem
            average = m / N
            print = New Print()
            For row = 0 To a.GetUpperBound(0) Step 1
                outNumber = outNumber & print.OutRes(a(row).ToString())
                If a(row) > CInt(average) Then
                    outMaxN = outMaxN & print.OutRes(a(row).ToString())
                End If
            Next row
            Console.WriteLine("Numbers: {0}", outNumber)
            Console.WriteLine("average artificial numbers: {0}", average)
            Console.WriteLine("greater than the average arithmetic number: {0}", outMaxN)
        Else
            Console.WriteLine("Error")
        End If
        Console.ReadKey()
    End Sub

End Module