Сумма целых чисел от A до B

Задача: Даны два числа введенных с клавиатуры. Найти сумму целых чисел в интервале от A до B.

Решение:

 Sub sum()
   num1 = InputBox("Введите А")
   num2 = InputBox("Введите B")
 If num2 <= num1 Then
   MsgBox "B должно быть больше A"
 Else
   summa = 0
 For i = num1 To num2
   summa = summa + i
 Next i
   MsgBox "Сумма целых числе равна: " & summa
 End If
End Sub