В заданном одномерном массиве целого типа найти и напечатать совершенные числа, или сообщить, что таких нет

Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, j As Integer, s1 As String, s2 As String, sum As Long
    n = InputBox("Введите количество элементов массива", "Определение размера массива", 10)
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(28 * Rnd + 6)
        s1 = s1 & M(i) & "  "
    Next i
        If SovChicslo(M(i)) Then s2 = s2 & M(i) & "  "
   
    MsgBox (s1 & vbCrLf & IIf(s2 = "", "Простых чисел нет", "Простые числа:" & vbCrLf & s2))
End Sub
 
Function SovChicslo(ByVal a As Integer) As Boolean
    Dim i  As Integer
   For i = 1 To n
        sum = 0
        For j = 1 To M(i) \ 2
            If M(i) Mod j = 0 Then sum = sum + j
        Next j
    
    Next i
 
    SovChicslo = True
End Function

Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, j As Integer, s1 As String, s2 As String, sum As Long
    n = Val(InputBox("Введите количество элементов массива", "Определение размера массива", 20))
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(28 * Rnd + 6)
        s1 = s1 & M(i) & "  "
        If SovChicslo(M(i)) Then s2 = s2 & M(i) & "  "
    Next i
    MsgBox (s1 & vbCrLf & IIf(s2 = "", "Совершенных чисел нет", "Совершенные числа:" & vbCrLf & s2))
End Sub
 
Function SovChicslo(ByVal a As Integer) As Boolean
    Dim i  As Integer, sum As Integer
    For i = 1 To a \ 2
         If a Mod i = 0 Then sum = sum + i
    Next i
    SovChicslo = sum = a
End Function