Factors of a number - UDF issue

[Juggler_IN]

I have a UDF to find the Highest Factors of a Number. It is a UDF with array output With most numbers it works fine, for example with input of 24 it outputs 8, 3, NA; with input of 16 it outputs, 4, 4, NA; but with input of 25 it outputs 5, 5, 5, 5, ... in as many cells selected for array output. I have not been able to fix. Any possible solution?

Public Function Factors( _
       ByVal x As Variant) As Variant

    Dim i As Long, j As Long, obj As Object, var() As Variant

    Set obj = CreateObject("Scripting.Dictionary")
    For i = 2# To (x / 2#)
        j = x Mod i
        If j = 0# Then
            obj.Add i, i
        End If
    Next i
    var = obj.Items()

    Select Case UBound(var)

    Case 0#, 1#
        Factors = var

    Case Is >= 2#
        Factors = Array(var(UBound(var) - 1#), var(LBound(var) + 1#))

    End Select

End Function

 

[RoryA]

What would you like it to return when there is only one factor?

 

[Juggler_IN]

@RoryA; Just the factor. So, for input 25, the output to be 5, NA, NA, ...

 

[RoryA]

You could fudge it by just returning an #NA error as an additional value:

        Factors = Array(var(0), CVErr(xlErrNA))