Help with optimization

[Marraco]

This line:

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

in this 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?
_