Правильно написана программа?

Question

Найти сумму всех чисел в интервале от 1 до 100, которые делятся без остатка на "a". Число "a" вводится с клавиатуры.

Sub prog() 
Dim a, x, s1, s2 As Integer 
a = Val(Imputbox("Введите a")) 
x = Val(Imputbox("Введите число от 1 до 100")) 
If a Mod 2 = 0 And x Mod a = 0 Then 
s = (2 + 100) / 2 * 50 
MsgBox ("Сумма всех чисел равна S1" + Str) 
End If 
If a Mod 2 = 0 And x Mod a > 0 Or x Mod a < 0 Then 
s = (1 + 99) / 2 * 50 
MsgBox ("Сумма всех чисел равна S2" + Str) 
End If 
End Sub

Неправильно, где ошибка? (((

Лёха Козлов · Accepted Answer

ошибка в попытке вводить вручную числа от 1 до 100, медленно, не удобно, не нужно, и счёт будет только для введённого числа.. . 
ответ с исправлениями дан в ранее выложенном вопросе