ciao optime, grazie che rispondi sempre, però potreati anche inviarmi qualche scriptino che ne pensi?
Scherzo, però questo dovrebbe andare bene, lo proverò stasera perchè adesso purtroppo non posso.

conta = 0
Do While Not file_txt.AtEndofStream
file_txt.ReadLine
conta = conta + 1
Loop

Ciao.