Задача на массивы

Sub massiv()
Dim A() As Long, N As Integer, b As Double, i As Long
Columns(1).ClearContents
Columns(2).ClearContents
N = InputBox("Введите размер последовательности")
ReDim A(N)
Randomize
For i = 0 To N
   A(i) = Rnd() * 1800 - 800
   Cells(i + 1, 1) = A(i)
   Cells(i + 1, 2) = MCH_F(A(i))
Next i
End Sub
 
 
Function MCH_F$(X&)
    Dim n1&, n2&, A(), j&, U&, Y&
    j = 0
    Select Case X
        Case 0 To 3, 5, 7
'        MCH_F = "Prime"
         MCH_F = X
        Exit Function
    End Select
    Do While X Mod 2 = 0
        ReDim Preserve A(j)
        A(j) = 2
        X = X / 2
        j = j + 1
    Loop
    Do While X Mod 3 = 0
        ReDim Preserve A(j)
        A(j) = 3
        X = X / 3
        j = j + 1
    Loop
    U = Abs(X \ 4)
    n1 = 5
    n2 = 7
    Do While n1 < U
        Y = X
        Do While X Mod n1 = 0
            ReDim Preserve A(j)
            A(j) = n1
            X = X / n1
            j = j + 1
        Loop
        Do While X Mod n2 = 0
            ReDim Preserve A(j)
            A(j) = n2
            X = X / n2
            j = j + 1
        Loop
        U = Abs(X \ n2)
        n1 = n1 + 6
        n2 = n1 + 2
    Loop
    If j = 0 Then
'        MCH_F = "Prime"
         MCH_F = X
    Else
        If X <> 1 Then
            ReDim Preserve A(j)
            A(j) = X
        End If
        MCH_F = Join(A, "*")
    End If
End Function