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

Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, x As Integer, j As Integer
    n = InputBox("Введите количество элементов массива", "Определение размера массива")
ReDim M(n) As Integer
    Randomize
    For i = 1 To n
        For j = 1 To n
            M(i, j) = Int(10 * Rnd + 1)
        Next j
        Next i
For i = 1 To n
x = 0
 For j = 2 To sqrt.Math(M(i))
  If M(i) Mod j = 0 Then x = 1
If x = 0 Then MsgBox "Номер чисел" & i
Else: MsgBox "Таких чисел нет"
End If
End If
Next j
Next i
End Sub

Option Explicit
Option Base 1
Sub Mass()
    Dim M() As Integer, n As Integer, i As Integer, x As Integer, j As Integer, s1 As String, s2 As String
    n = InputBox("Введите количество элементов массива", "Определение размера массива", 10)
    ReDim M(n) As Integer
    Randomize
    s1 = "Массив:" & vbCrLf
    For i = 1 To n
        M(i) = Int(100 * Rnd + 1)
        s1 = s1 & M(i) & "  "
    Next i
    For i = 1 To n
        x = 0
        For j = 2 To Math.Sqr(M(i))
            If M(i) Mod j = 0 Then x = 1: Exit For
        Next j
        If x = 0 Then s2 = s2 & M(i) & " "
    Next i
    MsgBox s1 & vbCrLf & IIf(s2 = "", "Простых чисел нет", "Простые числа:" & vbCrLf & s2)
End Sub