Вывод делителей натурального числа

Sub Z4()
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

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

...
For i = 1 To Ubound(Arr) Step 1
    If A / Arr(i) - Int(A / Arr(i)) = 0 Then
       lngCount = lngCount + 1
       S = S & Format$(Arr(i)) & ","
       Debug.Print "Всего вариантов - " & lngCount & ": " & Left$(S,Len(S)-1)   
    End If
Next i
...

Sub Z4()
Dim lngCount As Long, S As String, i As Integer, a
 
a = val(InputBox("Введите натуральное число"))
If a < 1 Then
   MsgBox ("Ошибка ввода данных")
   Exit Sub
End If
 
'lngCount = 0
'ReDim Arr(1 To a)
    
For i = 1 To a Step 1
'    Arr(i) = i
    If a / i - Int(a / i) = 0 Then
       lngCount = lngCount + 1
       S = S & Format$(i) & ","
    End If
Next i
 
Debug.Print "Число - " & a & ". "; "Всего вариантов - " & lngCount & ": " & Left$(S, Len(S) - 1)
 
End Sub

Sub AI()
    a = InputBox("Введите a", "Ввод натурального числа", Year(Now))
    If IsNumeric(a) And a <= 0 Or a = Empty Then
       MsgBox ("Ошибка ввода: значение пусто либо не больше нуля.")
       Exit Sub
    End If
     
    If IsNumeric(a) Then ReDim arr(1 To Sqr(a)) Else Exit Sub
        
    For i = 1 To Sqr(a)
'        If (a / i) = (a \ i) Then 'тоже работает, но на числах лишь до 2^31
        If Fix(a / i) = a / i Then
           Count = Count + 1
           arr(Count) = a / i
        End If
    Next i
    
           Count2 = Count 'далее счёт делителей числа a, меньших чем Sqr(a)
     
    For j = Count To 1 Step -1
           Count2 = Count2 + 1
           arr(Count2) = a / arr(j)
    Next j
     
    MsgBox "Количество натуральных делителей " & a & ": " & Count2 & vbCr & _
    vbCr & "Делители: " & Mid(Join(arr, "|"), 1, InStr(Join(arr, "|"), "||"))
End Sub

Option Compare Database
Option Explicit
 
Sub Z4()
Dim S As String, numCount, i, a
 
a = CCur(InputBox("Введите натуральное число"))
 
    If a < 1 Then
       MsgBox ("Ошибка ввода данных")
       Exit Sub
    End If
 
    For i = 1 To a Step 1
        If i Mod 10000 = 0 Then DoEvents
        If a / i - Int(a / i) = 0 Then
           numCount = numCount + 1
           S = S & Format$(i) & ","
           Debug.Print i
        End If
    Next i
    
MsgBox "Число - " & Format$(a) & ". Всего вариантов - " & Format$(numCount) & ": " & _
        vbNewLine & vbNewLine & _
        Left$(S, Len(S) - 1), _
        vbInformation, "Результаты поиска делителей"
End Sub

Option Explicit 'необходимость объявить все переменные
Private Declare Function timeGetTime Lib "winmm.dll" () As Long 'Windows-таймер, 48 сут.
 
Sub AI() 'вывод всех делителей натурального числа длиной до 15 цифр
Dim i, j, t, Count, Count2, answer
Static A
    A = InputBox("Введите a", "Ввод натурального числа", IIf(A = Empty, Year(Now), A))
    If IsNumeric(A) And A <= 0 Or A = Empty Then
       MsgBox ("Ошибка ввода: значение пусто либо не больше нуля.")
       Exit Sub
    End If
     
    If IsNumeric(A) Then ReDim arr(1 To Sqr(A)) Else Exit Sub
 
t = timeGetTime
    For i = 1 To Sqr(A)
'        If (a / i) = (a \ i) Then 'тоже работает, но на числах лишь до 2^31
        If Fix(A / i) = A / i Then
           Count = Count + 1
           arr(Count) = A / i
        End If
    Next i
    
           Count2 = Count 'далее счёт делителей числа a, меньших чем Sqr(a)
     
    For j = Count To 1 Step -1
           Count2 = Count2 + 1
           arr(Count2) = A / arr(j)
    Next j
     
    answer = _
     "Время выполнения: " & Format$((timeGetTime - t) / 1000, "0.000") & " секунды." _
    & vbCr & vbCr & "Количество натуральных делителей " & A & ": " & Count2 & vbCr & _
    vbCr & "Делители: " & Mid(Join(arr, "\"), 1, InStr(Join(arr, "\"), "\\"))
    MsgBox answer
    Debug.Print Join(Split(answer, "\"), Chr(13)) 'в случае если ответ не влез в MsgBox
End Sub

Dim a
 
Sub AIJ()
If IsNumeric(a) Then a = CDec(a) Else a = 0: Exit Sub
 
Dim q, i, j, Count, Count2
    a = InputBox("Введите a", "Ввод натурального числа", IIf(a > 0, a, Year(Now)))
    If IsNumeric(a) And a <= 0 Or a = Empty Then
       MsgBox ("Введённое значение не больше нуля либо вообще не число.")
       Exit Sub
    End If
     
    If IsNumeric(a) Then ReDim arr(1 To a ^ (1 / 2) + 4) Else Exit Sub
        
    For i = 1 To Sqr(a)
        q = a / i
            If Fix(q) = q Then
               Count = Count + 1
               arr(Count) = q
            End If
    Next
    
           Count2 = Count       'далее счёт делителей числа a, меньших чем Sqr(a)
     
    For j = Count + (Sqr(a) = Fix(Sqr(a))) To 1 Step -1 'использовано, что True=-1
           Count2 = Count2 + 1
           arr(Count2) = a / arr(j)
    Next
     
MsgBox "Количество натуральных делителей " & Format(a, "#,###") & ": " & Count2 _
    & "." & vbCr & vbCr & "Делители числа (кроме его самого):" & vbCr & _
    Mid(Join(arr), InStr(Join(arr), Space(1)) + 1, InStr(Join(arr), Space(2)))
End Sub

Sub test2()
    Dim m$, t!
    t = Timer
    
    m = String$(16, "3") & 1
    Debug.Print m & " = " & PrimeFact(m)
    m = String$(18, "3") & 1
    Debug.Print m & " = " & PrimeFact(m)
    m = "5122561286432168421"
    Debug.Print m & " = " & PrimeFact(m)
    m = "1234567890987654321"
    Debug.Print m & " = " & PrimeFact(m)
    
    Debug.Print Timer - t
End Sub
 
Function PrimeFact$(m$)
    Dim i&, txt$, n
    n = CDec(m)
    If n < 4 Then
        PrimeFact = "Prime"
        Exit Function
    End If
    i = 3
    While Fix(n / 2) = n / 2
        n = Fix(n / 2)
        txt = txt & "*2"
    Wend
    While CDec(i) * i <= n
        If Fix(n / i) <> n / i Then i = i + 2 Else n = Fix(n / i): txt = txt & "*" & i
    Wend
    If n > 1 Then txt = txt & "*" & n
    If InStr(2, txt, "*") Then PrimeFact = Mid$(txt, 2) Else PrimeFact = "Prime"
End Function