Dai una occhiata a Array.Copy:
http://msdn.microsoft.com/it-it/libr...v=vs.110).aspx
Un altro metodo potrebbe essere leggere tutto il file come unica stringa e poi con un Loop cercare con IndexOf la posizione del "VbCrLf" (carattere di fine riga) voluto e creare relativa Substring.
Il metodo giusto è forse quello che impiega meno tempo:
Dim T as DateTime = Now (prima del codice)
Debug.Print (Now - T).TotalMilliseconds a fine codice