Mi intrometto solo per proporre un codice piu' efficiente ...

codice:
ff = FreeFile
Open "c:\file.txt" For Binary As #ff
f = Space$(LOF(ff))
Get #ff, , f
Close #ff
Prova = Split(f, vbCrLf)