Найти количество делителей введенного с клавиатуры числа - VBA

Sub делители()
A = InputBox("Введите натуральное число")
If A <= 0 Then
MsgBox ("Ошибка ввода данных")
Exit Sub
End If
Count = 0
    For i = 1 To A
        If A / i - Int(A / i) = 0 Then
        Count = Count + 1
        End If
     Next i
     MsgBox ("Количество делителей - " & Count & vbCrLf)
End Sub