Цикл: вычисление суммы первых N целых положительных чисел - VB

Формулировка задачи:

Доброе время суток! нуждаюсь в помощи )) не могу составить цикл который вычисляет сумму первых N целых положительных чисел ((( пожалуйста помогите

Sub List_01()
    Const title = "Сумматор целых положительных чисел"
    Dim i As Integer
    Dim j As Integer
    Dim S As Long
    Dim S_Str As String

    i = InputBox("Введите число" & Chr(13) & "n", title)
    If i <= 0 Then MsgBox "Неверно введено число", vbCritical, "Ошибка": Exit Sub
    S_Str = ""
    S = 0
    Do While i < 2
    If (i Mod 2) < j Then
            
        End If
    Exit Do
    Loop
    MsgBox "Сумма первых n целых четных чисел равна" & S
    
End Sub

вот что я делал(( что-то не получается помогите

Решение задачи: «Цикл: вычисление суммы первых N целых положительных чисел»

textual
                            Листинг программы 
                        

                            Sub Task_()
Dim N, i As Integer, iSum As Integer
N = Val(InputBox("N:"))
If N <= 0 Then MsgBox "Неверно введено число", vbCritical, "Ошибка": Exit Sub
For i = 1 To N
    If Not i And 1 Then iSum = iSum + i
Next
MsgBox "Сумма первых n целых четных чисел равна" & iSum
End Sub
                        