Problema con una macro que me lea cualquier archivo de texto

Tengo algunos archivos de registros sísmicos, únicamente me interesan los datos numéricos que se aparecen, todos los archivos de texto tienen la misma configuración, por lo que me gustaría poder buscar cualquier archivo de texto y exportar la información a excel, sin embargo ya intenté algunas rutinas y en ninguna he podido actualizar los datos para buscar otro archivo.