codice:
Const numeroriga = 2 'eventualmente se ti serve un'altra riga modifica questa riga di conseguenza
Dim riga As String, c As Integer
Open "c:\SAUDIT.TXT" For Input As #1
Do Until EOF(1) Or c = numeroriga
c = c + 1
Line Input #1, riga
Loop
If EOF(1) Then riga = "" 'la riga richiesta non esiste nel file
Close #1