Visual Basic 6 - Lettura di una specifica linea da un file di testo TXT

Salve a tutti,
ho ben presente il ciclo per la lettura di un TXT linea per linea in modo da leggere tutte le righe di un testo, ma nel caso io volessi solo (dico per dire) la riga numero 2?

Grazie della risposta

Vedi questa discussione

pierotofy.it/pages/extras/forum/6/1001521-leggere_una_riga_precisa_di_un_file_txt/

Il codice postato nell'altra discussione è il seguente:

Dim stringa As String, x As Integer, i As Integer

Open "lista.txt" For Input As #1
For x = 0 To i = 2   ' i = numero della riga da leggere
Line Input #1, stringa
MsgBox (stringa)
Next x
Close #1

Mettiamo caso che io voglia fare un MsgBox(stringa) solo e unicamente della seconda riga
Io provo quel codice ma mi fa il MsgBox con dentro sempre la prima riga, come mai?

Grazie ancora della vostra preziosa collaborazione

L'errore e quì:

For x = 0 To i = 2

Se vuoi che i sia uguale a due devi dichiararlo prima del for

i = 2
For x = 0 To i

Così come è scritto viene preso in considerazione come valore i=2 dove i in vb6, essendo stato appena dichiarato, è uguale a 0, per cui quella uguaglianza dà come risultato falso, ovvero 0

Ho cambiato il codice così:

Private Sub Command1_Click()
Dim stringa As String, x As Integer, i As Integer
i = 1

Open "lista.txt" For Input As #1
For x = 0 To i    ' i = numero della riga da leggere
Line Input #1, stringa
MsgBox (stringa)
Next x
Close #1
End Sub

Ma nemmeno così funziona... il ciclo passa tre volte sul MsgBox e mi legge tutti e tre le righe invece di una solamente...

Ho sbagliato io?

Da come l'hai scritta direi che passa due volte su MsgBox, ovvero con x=0 e x=1.
Se vuoi vedere solo quando x=1

For x = 0 To i    ' i = numero della riga da leggere
  Line Input #1, stringa
  If x=1 then
    MsgBox (stringa)
  end if
Next x

Speravo si riuscisse a fare solo con il ciclo e senza usare un IF
Se così non è, grazie del prezioso suggerimento

Ma allora il MsgBox non lo metti dentro al ciclo.
effettui il ciclo e una volta finito guardi la stringa.

i = 1
For x = 0 To i    ' i = numero della riga da leggere
  Line Input #1, stringa
Next x 
MsgBox (stringa)