Grazie x la risposta MDM. Ho messo giù questo codice...

codice:
Set objFile = objFso.OpenTextFile(strFileName, ForReading, True, TristateTrue)
strNewFile = Replace(Text1.Text, "  ", " ")
arrFile = Split(objFile.ReadLine, " ")
...ma mi da errore sull'array. L'errore è questo:

codice:
Input oltre la fine del file