codice:
Const numeroriga = 2 'eventualmente se ti serve un'altra riga modifica questa riga di conseguenza
Dim riga As String, c As Integer
Open "nomefile.ext" For Input As #1
Do
c=c+1
Line Input #1, riga
Loop Until EOF(1) Or c = numeroriga
Si possono usare anche altri metodi (tramite la funzione split, ad esempio), ma sono più dispendiosi in termini di tempo di CPU e di memoria sprecata.