Hola, si no me equivoqué escribiendo, debería funcionar, de hecho a mi me funciona.
Código vb:
Ver originalPrivate Sub CargarCombo()
Dim Archivo As String
Archivo = Dir("C:\TuCarpeta\*.doc")
Do While Archivo <> ""
Combo1.AddItem Archivo
Archivo = Dir
Loop
End Sub
Saludos