Помогите пожалуйста в VBA
Вводить целые числа до тех пор,пока сумма четных чисел не превысит значения 25 по модулю . Вывести на экран все введенные числа.

Sub Z()
Dim s As String
Dim x As Integer
Dim n As Integer
Do While n <= 25
    x = InputBox("Введите число ")
    If x Mod 2 = 0 Then n = n + x
    s = s & x & " "
Loop
MsgBox ("Введеные числа: " & s)
End Sub

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.