Вычисление суммы всех чётных чисел на отрезке

Dim a1, a2 As Integer 'могут быть другого типа
Dim i, sum As Integer 'целый тип
a1 = 10
a2 = 20
sum = 0
i = a1 \ 1 'целочисленное деление
If i < a1 Then i = i + 1 'ближайшее целое в диапазоне
Do While i < a2
If (i Mod 2) = 0 Then 'если делится на 2 без остатка
sum = sum + i
End If
i = i + 1 
Loop
Label1.Caption = sum 'sum это сумма вывод какой хочешь
End Sub

Function sumInt(int n1 as integer, int n2 as integer) as integer
  If (n1 > n2) then
     sumInt=sumInt(n2,n1)
  else
     for i%=n1 to n2
         sumInt=sumInt+IIF(i% mod 2 =0,i%,0)
     next i%
  end if
End Function

Function SumEven(ByVal n1 As Long, ByVal n2 As Long)
  n1 = n1 + Abs(n1) Mod 2 'первое четное >=n1
  n2 = n2 - Abs(n2) Mod 2 'последнее четное <=n2
  SumEven = (n1 + n2) / 4 * (n2 - n1 + 2)
End Function

Function sumInt(n1 as integer, n2 as integer) as integer '::: "int" - лишнее!!!
  If (n1 > n2) then
     sumInt=sumInt(n2,n1)
  else
     for i%=n1 to n2
         sumInt=sumInt+IIF(i% mod 2 =0,i%,0)
     next i%
  end if
End Function