Introducir un un Combo un gran numero de datos

El tema en cuestión es que me resulta imposible añadir una gran cantidad de elementos en un cuadro combinado. Me explico, lo que tengo que hacer es introducir en el combo los nombres de los documentos que se encuentran en una carpeta especifica(Dichos nombres son bastante largos). Para ello, lo que he hecho es crear una variable String con los nombres de dichos documentos. A continuación le doy a la propiedad .Rowsource del combo el valor de dicha variable String, pero es aquí donde me surge el problema. Si el numero de archivos que se encuentran en la carpeta es alto, el combo no me funciona; No se si es porque el cuadro combinado no admite una gran cantidad de elementos o porque la variable String no soporta la longitud necesaria para incluir todos los documentos, lo que produce el consecuente error. Adjunto el código para aclararme:
Dim TotalDocumentos As String
Private Sub Form_Load() Rellenar
Combo.RowSourceType = "lista de valores"
Combo.RowSource = TotalDocumentos '= valores de la carpeta
Combo.ListRows = 4
End Sub
Private Sub Rellenar()
Dim sist, carpet, docum, archivos, a
Set sist = CreateObject("Scripting.FileSystemObject")
Set carpet = sist.GetFolder("Carpeta con los Documentos")
Set archivos = carpet.Files
For Each docum In archivos a = "'" + docum.Name + "'" + ";"
TotalDocumentos = TotalDocumentos + a
Next
End Sub
En definitiva, estoy desesperado y me gustaría conocer una manera para arreglar este problemilla.
Muchas gracias de antemano por la respuesta.