L'esempio serve solo per farti vedere l'utilizzo di dir, è ovvio che il campo nomefile non va bene, puoi usare una matrice, oppure un combobox...
codice:
    X = Trim("C:\" & "*.txt")
    Z = Dir(X)
    Do Until Z = ""
        nomefile = Z
        Z = Dir
    Loop
Ciao