Help with optimization

This line:

Code:

---

LÃ*neasDeArchivo = Split(sr.ReadToEnd(), vbCrLf)

---

in this code:

Code:

---

Dim LÃ*neasDeArchivo() as String
fs = File.OpenRead(FilePath)
sr = New StreamReader(fs)
LÃ*neasDeArchivo = Split(sr.ReadToEnd(), vbCrLf)
fs.Close()

---

takes too much time (63 seconds, because there are 2,000,000.0 lines to pass to LÃ*neasDeArchivo() array).
¿somebody knows a faster way?
_

You could as well read one line at a time instead of reading the whole file. Imagine, what happens if the file is greater than 2 GB. I would never read the whole content of file unless I am 100% sure that the file is going to be small.

Also if the lines are independant, you can process each one using a worker thread....