Выведите одно целое число — координату точки, в которой лучше всего построить школу

Private Sub Command1_Click()
   Dim n As Long                         'количество учеников
   Dim Coord, s As String                'координаты домов учеников'
   Open "c:\111\Z_3.in" For Input As #1
     Open "c:\111\Z_3.out" For Output As #2
         Do While Not EOF(1)
               Line Input #1, s: n = CInt(Trim(s))
               Line Input #1, s: Coord = Split(Trim(s))
               Write #2, vasy(Coord)
         Loop
      Close #1
    Close #2
End Sub
 
Private Function vasy(ByRef C) As String
    Dim i As Long, n As Long, sum As Long
    n = UBound(C)
    'Здесь должно быть вычисление  координаты точки, в которой лучше всего построить школу
    'Алгоритм предлагаю продумать самому, а пока функция возвращает округленное среднее арифметическое адресов
    For i = 0 To n
        sum = sum + C(i)
    Next i
    vasy = CStr(sum \ (n + 1))
End Function

Option Explicit
 
Private Sub Command1_Click()
   Dim n As Long                         'количество учеников
   Dim Coord, s As String                'координаты домов учеников'
   Open "c:\111\Z_3.in" For Input As #1
     Open "c:\111\Z_3.out" For Output As #2
         Do While Not EOF(1)
               Line Input #1, s: n = CInt(Trim(s))
               Line Input #1, s: Coord = Split(Trim(s))
               Write #2, search(Coord(0), Coord(n - 1), Coord, n)
         Loop
      Close #1
    Close #2
End Sub
 
Private Function search(ByVal startSearch As Long, ByVal endSearch As Long, ByRef adresses, ByVal n As Long) As Long
    Dim a As Long, b As Long, i As Long, j As Long, sum As Long, min As Long
    min = abs(startSearch + endSearch) * n
    For i = startSearch To endSearch
         sum = 0
         For j = 0 To n - 1
                 sum = sum + Abs(i - adresses(j))
         Next j
         If min > sum Then min = sum: search = i
    Next i
End Function