Visual Basic - Leer varios archivos txt de una carpeta

Option Explicit

Dim ARCHIVO As File, CARPETA As FOLDER, SYSWINDOWS As FileSystemObject, TEMP As String

Private Sub Form_Load()

TEMP = "" 'Ruta de la carpeta donde estan los archivos a leer puedes usar un commondialog para buscarlos si lo necesitas

Set SYSWINDOWS = New FileSystemObject: Set CARPETA = SYSWINDOWS.GetFolder(TEMP): ITX = 1

    For Each ARCHIVO In CARPETA.Files

        'Mecanismo de Apertura para ler archivos

        'Acciones a implementar

    Next

End Sub

dim Archivo as string

Archivo = Dir(RutaArchivos & "*.TXT") 'aca le pones la ruta donde esta la carpeta y el nombre de la carpeta

If Len(Archivo) > 0 Then

 Do ' aca vas roleando la carpeta....

    'If Left(Archivo, 6) = Format(Año, "0000") & Format(Mes, "00") Then  ' yo en este caso borror los archivos que tenga una fecha

                                                                                                                             'especifica pero aca es donde tenes que hacer lo tuyo....

                                                                                                                             'el archivo vuiene en la variable archivo...

    '   Kill RutaArchivos & Archivo   ' yo con esto lo borro

    'End If

     Archivo = Dir ' con esto vas al proximo archivo de la lista.

 Loop Until Len(Archivo) = 0

End If

End If