Leggere la 4° riga di un file di testo

[PEA]

ciao volevo sapere come era possibile leggere solo una riga di un file per esempio la 4° e metterla in una variabile.
ho dao un occhiata in giro per il forum ma mi sembra di non aver trovato niente che vada bene nel mio caso.

[optime]

devi leggerti (scartandole) anche le prime tre...

[Worf]

dim intRiga  as integer
dim strRiga  as string
open "file.txt" for input as 1
intRiga=4
strRiga=""
do while not eof(1)
   line input#1,strRiga
   intRiga=intRiga+1
   if intRiga=4 then exit do
loop
if strRiga="" then
   msgbox "Il file e' composto da meno di "& cstr(intRirga) & " righe",vbokonly, "Attenzione"
else
   debug.print strRiga
end if
close 1