una xcosa di questo tipo va bene?



Dim mstrPathSetup As String

mstrPathSetup = "C:\Documents and Settings\roberto.brogi\Documenti\annacaffe_ordini\ anagra.txt"



Set fSetup = fsSetup.OpenTextFile(mstrPathSetup, ForReading,False)



Do While fSetup.AtEndOfStream <> True

riga = fSetup.ReadLine

riga = Mid(riga, 1, 7)
mstrCnDb = fSetup.ReadLine


Loop