Даны три целых числа, найдите среднее из них

Sub log3()
Const n1 = 8, n2 = 3, n3 = 4
MsgBox "Из трех чисел" + vbCr + Join(Array(n1, n2, n3), ";  ") + vbCr + "число больше наименьшего, но меньше наибольшего:" + vbCr + _
        CStr(-(n2 < n1 And n1 < n3 Or n3 < n1 And n1 < n2) * n1 - (n1 < n2 And n2 < n3 Or n3 < n2 And n2 < n1) * n2 - (n1 < n3 And n3 < n2 Or n2 < n3 And n3 < n1) * n3)
End Sub

Sub If3()
Const n1 As Integer = 8, n2 As Integer = 3, n3 As Integer = 4
Dim n As Integer
 
n = n1
If n1 <= n2 And n2 <= n3 Or n3 <= n2 And n2 <= n1 Then n = n2
If n1 <= n3 And n3 <= n2 Or n2 <= n3 And n3 <= n1 Then n = n3
 
MsgBox "Из трех чисел" + vbCr + Join(Array(n1, n2, n3), ";  ") + vbCr + "число больше наименьшего, но меньше наибольшего:" + vbCr + CStr(n)
End Sub

Function middle(a As Integer, b As Integer, c As Integer) As Integer
         middle = Abs(a > b And b > c) * b + Abs(a > c And c > b) * с + _
                  Abs(b > a And a > c) * a + Abs(b > c And c > a) * c + _
                  Abs(c > a And a > b) * a + Abs(c > b And b > a) * b
End Function

Sub proba()
Dim Ar(1 To 3) As Integer, I As Integer, J As Integer, N As Integer
Ar(1) = 7: Ar(2) = 4: Ar(3) = 2
For I = 1 To 3
  If (Ar(2) > Ar(1) And Ar(2) < Ar(3)) Or _
     (Ar(2) < Ar(1) And Ar(2) > Ar(3)) Then MsgBox Ar(2): Exit Sub
    N = Ar(1): Ar(1) = Ar(2): Ar(2) = Ar(3): Ar(3) = N
Next
End Sub

Function MED(a, b, c)
MED = Choose(-(a < b) - 2 * (a < c) - 4 * (b < c) + 1, b, a, 0, c, c, 0, a, b)
End Function