Vá no menu "PROJECT/REFERENCES..." e marque o item "Microsoft Scripting Runtime". Depois coloque assim no evento load do form por exemplo:

 

Private Sub Form_Load()
Dim arq As Scripting.FileSystemObject
Dim f As Object, i As Object
Dim j As Long

Set arq = New Scripting.FileSystemObject
Dim a As Scripting.Files

j = 0
Set f = arq.GetFolder("c:suapasta")
Set fc = f.Files
For Each i In fc
    If arq.GetExtensionName(i.Name) = "txt" Then
        Debug.Print i.Name
        j = j + 1 'qtde de arquivos
    End If
Next

End Sub

 

Irá aparecer os nomes dos arquivos no debug. Depois é só adaptar do jeito que lhe convier...

 

at+