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

Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, x%
    n = InputBox("Введите количество элементов массива", "Определение размера массива")
ReDim M(n) As Integer
    Randomize
    For i = 1 To n
        M(i) = Int(500 * Rnd + 1)
Next i
For i = 1 To n
If M(i) = 6 Or M(i) = 28 Or M(i) = 496 Then x = M(i)
Next i
If x > 0 Then
MsgBox "Совершенные числа, присутствующие в массиве:" & M(i)
Else: MsgBox "Совершенных чисел нет"
End If
End Sub

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
    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
        If sum = M(i) Then s2 = s2 & M(i) & " "
    Next i
    MsgBox s1 & vbCrLf & IIf(s2 = "", "Совершенных чисел нет", "Совершенные числа, присутствующие в массиве:" & vbCrLf & s2)
End Sub