Ahora comprendi tu respuesta....te agradezco...haré las pruebas correspondientes y despues te comentaré los resultados...
Con respecto a n=FreeFile, nosotros por lo regular trabajamos con apertura de multiples archivos (no como el ejemplo que puse en los post anteriorres) por los que buscamos indices de estos que estén disponibles...
Ejemplo:
En este ejemplo se utiliza la función FreeFile para devolver el siguiente número de archivo disponible. Se abren en el bucle cinco archivos para salida y se escriben en cada uno de ellos algunos datos de ejemplo.
Cita:
Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5
fileNumber = FreeFile()
Open Archivo & count & ".txt" For Append As #fileNumber
Print #fileNumber, "Hola"
Close#fileNumber
Next
.
.
.
.
Ojalá me hallas comprendido y muchas gracias por la ayuda entregada...un abrazo
ecerpa