prova questo

dim str as string
close #1

open "percorsoCompleto\file.txt" for input as #1
do while not eof(1)
line input #1 , str 'dove qui se hai tre righe sul txt col ciclo ti salva il valore... cmq...

loop
close #1
spero di essere stato chiaro