Ребята,помогите пожалуйста!!!))) суть задания: Составьте блок-схему и программу на языке VBA, которая вычисляет сумму первых n целых положительных четных чисел. Количество суммируемых
чисел должно вводиться во время работы программы. Программа должна
проверять правильность введенных пользователем данных и, если они неверные ( n ≤ 0 ), выдавать сообщение об ошибке.
Буду очень признательна, если кто-нибудь возьмется за это задание. Спасибо)

Sub z()Dim n As IntegerDo While n < 1  n = InputBox("N=")  If n < 1 Then MsgBox ("Ошибка ввода. Повторите.")LoopFor i = 1 To n    s = s + 2 * iNext iMsgBox ("s=" & s)End Sub