Rem Дана последовательность целых чисел, определить,
Rem есть ли в этой последовательности простые числа

Sub main()
Dim i As Integer, k As Integer, n As Integer, x As Integer
Dim found As Boolean
Dim isPrime As Boolean
    
    found = False
    n = InputBox("Количество чисел")
    i = 1
    Do While (i <= n) And Not (found)
        x = InputBox("Введите число")
        k = 2
        isPrime = True
        Do While (k * k <= x) And isPrime
            If x Mod k = 0 Then
                isPrime = False
            Else
                k = k + 1
            End If
        Loop
        
        If isPrime Then
            found = True
        Else
            i = i + 1
        End If
    Loop
    
    If found Then
        MsgBox ("Есть")
    Else
        MsgBox ("Нет")
    End If
End Sub