В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