purtroppo non posso manipolare il file da leggere...è così com'è...cmq ho risolto con questo codice

Dim fso As New FileSystemObject
Dim ts As TextStream
'Open file.
Set ts = fso.OpenTextFile(strDest)
'Loop while not at the end of the file.
Do While Not ts.AtEndOfStream
Riga = ts.ReadLine
Url_Riga = ts.ReadLine
Loop
'Close the file.
ts.Close

così funziona tutto...grazie lo stesso


ciao