.
Las colecciones jamas me han convencido las veo lentas ¬¬"  mejor un Array vale   

Dulces Lunas!¡.

Karcrack y a TODOS me gustarian que pongan las caracteristicas de la maquina donde estan probando, procesador y RAM, como para ver en que condiciones se esta probando, yo pruebo el ejemplo de Karcrack compilado obviamente y me da 4 veces mas de tiempo del que pusiste, es una notebook Intel Core 2 Duo 2Ghz y 3 GB de ram, o sea es una "buena" maquina. lo de las Collections quedo claro, BlackZeroX hacelo con Collections, debe haber miles de ejemplos mas rapidos con arrays, pero tiene que devolver lo que se dijo en el primer post y hay que cumplir las reglas  

Hay va la mia

Public Function FactorizeS(ByVal S As Long) As Collection  
    Dim cTmp    As New Collection
    Dim I       As Long
 
   If S <= 0 Then GoTo Ret
   If S = 1 Then cTmp.Add 1: GoTo Ret
 
   For I = 2 To Sqr(S)
        If S Mod I = 0 Then
           cTmp.Add I
       End If
       I = I + 2
   Next I
 
Ret: Set FactorizeS = cTmp
End Function
 

Claro casimente es una mejora a las otras funciones pero es mas rapida