Список файлов в комбобоксе: не дает больше 125 значений

Dim FileEntry
Dim List: Set List = CreateObject("Scripting.Dictionary")
FileEntry = Dir("doc root as string", vbNormal)
Do While FileEntry <> ""
   List.Add FileEntry, "value"
   FileEntry = Dir
Loop
Me!CmbBox.RowSource = Join(List.Keys, ";")

me!MyComboBox.RowSourceType="ListFiles"
 
Function ListFiles(fld As Control, id As Variant, row As Variant, col As
Variant, code As Variant) As Variant
    Dim ReturnVal As Variant
    Static NameObject(127) As String, Entries As Integer
    ReturnVal = Null
    Select Case code
    Case acLBInitialize
        Entries = 0
        NameObject(Entries) = Dir("c: ")
        Do While NameObject(Entries) <> ""
            Entries = Entries + 1
            NameObject(Entries) = Dir
        Loop
        ReturnVal = Entries
    Case acLBOpen
        ReturnVal = Timer
    Case acLBGetRowCount
        ReturnVal = Entries
    Case acLBGetColumnCount
        ReturnVal = 1
    Case acLBGetColumnWidth
        ReturnVal = -1
    Case acLBGetValue
        ReturnVal = NameObject(row)
    Case acLBEnd
        Erase NameObject
    End Select
    ListFiles = ReturnVal
End Function

Static NameObject(127) As String, Entries As Integer

Static NameObject(600) As String, Entries As Integer