Si, è giusto,ma ti conviene fare una cosa del genere


codice:
Line Input #1, record
Do While Not EOF(1)                   'Fino alla fine del file
   if Left(record, 3) = "500" then    'Se record identità 
      a.writeline (" _ " & record)    'scrivo linea
   End If
   Line Input #1, record              'Linea successiva
Loop