dho!!
scusate ma ho scritto male....non intendo la 500 esima riga, bensì la riga 500 (inizia con un codice, il 500 appunto)

sto scrivendo sto codice
codice:
Do While Not Left(record, 3) = "500"
   If Left(record, 3) = "500" Or Left(record, 3) = "500" Or Left(record, 3) = "500" Then
      a.writeline (" _ " & record)
   End If
   Line Input #1, record
Loop
mi preoccupa il fatto che non so di preciso cosa fa il comando line imput #1, record
se ho capito bene copia nella variabile record la linea e si sposta alla linea successiva (giusto??).