программирование VBA

[Ирина2106]

Нужно найти из вводимого диапазона числа, у которых 5 делителей.

Sub rabota1()
n = InputBox("Введите нижнюю границу диапазона", "", 1)
k = InputBox("Введите верхнюю границу диапазона", "", 10000)
MsgBox "5 делителей  имеют числа :  "
For i = n To k
kolD = 0
For j = 1 To k
If i Mod j = 0 Then kolD = kolD + 1
Next j
If kolD = 5 Then
MsgBox i
End If
Next i
End Sub

Считает не правильно, подскажите в чем проблема? чего не хватает=)

[veniside]

For j = 1 To i