Visual Basic.Помогите написать программу.

Первую что-то не понял.
Sub z2()
Dim b, i As Integer
Dim summ As Long
Dim log As String
log = "Подходящие цифры- "
b = InputBox("Введите число от 1 до 99", "СУММА")
If b > 99 Or b < 1 Then
MsgBox ("Неверный ввод")
Exit Sub
End If
For i = 1 To 99
If i Mod b = 0 Then
summ = summ + i
log = log + Str(i) + ","
End If
Next i
MsgBox (log + " Их сумма = " + Str(summ))
End Sub

Sub z3()
Dim m, n, q, i As Long
Dim summ As Long
Dim log As String
log = "Подходящие числа- "
n = InputBox("N-количество чисел", "СУММА")
m = InputBox("Делитель", "СУММА")
q = InputBox("Остаток", "СУММА")
For i = m To n
'MsgBox ("ostatok" + Str(i) + "/" + Trim(Str(m)) + "=" + Str(i Mod m))
If (i Mod m) = q Then
'MsgBox ((i Mod m) - q)
summ = summ + i * i
log = log + Str(i) + ","
End If
Next i
MsgBox ("n=" + Str(n) + "m=" + Str(m) + "q=" + Str(q) + log + " Их их квадратов = " + Str(summ))
End Sub

вроде задачки простые, но я такое не изучаю... хм а самой никак нельзя подумать?