Scusa ... hai detto che hai tante righe ... queste sono separate da vbCrLf (penso ...) e quindi il codice che ti ho suggerito divide tutte le linee in un vettore ... quindi con

Dim a() As String
a = Split(file, vbCrLf)

avrai in

a(0)

la prima riga, in

a(1)

la seconda e cosi' via (le puoi vedere se scrivi

Dim a() As String
a = Split(file, vbCrLf)
MsgBox a(0)

Cosa non sai fare a questo punto?