06. EvenOddSum

Sub EvenOddSum()
    Dim n, evenSum, oddSum As Integer
    n = Range("A1")

    For i = 1 To n
        Dim currentNum As Integer
        currentNum = Range("B" & i)

        If i Mod 2 = 0 Then
            evenSum = evenSum + currentNum
        Else
            oddSum = oddSum + currentNum
        End If
    Next i

    If evenSum = oddSum Then
        Debug.Print "Yes Sum = " & evenSum
    Else
        Dim diff As Integer
        diff = Abs(evenSum - oddSum)
        Debug.Print "No Diff = " & diff
    End If

End Sub