rieccomi....ho letto e sono arrivato fino a qui...ma ora non sò proprio da che parte girarmi posto quello che ho fatto

Dim txt As String
Dim fileNum As Integer
Dim fname As String
Dim customer As String, addr As String, city As String
fname = "data.dat"
fileNumber% = Freefile
fileNum% = Freefile()

' Apertura Files
Open "C.\1.txt" For Input As fileNumber%

' Vado alla riga 10 e mi prelevo il contenuto
For i% = 1 To 10
%if i%=10
'leggi la riga
%Else
Next i%
%End If

'Scrivo il valore ricavato alla riga 10 come nome del files (e qui non saprei come fare)