Visual Basic - eliminar mitad de registros

hola soy nuevo en esto de visual basic y necesito un programa el cual tiene un registro 1323 datostxt y necesito dejarlo a la mitad lo único que tengo es esto

Open "C:\Users\Franciscoo\Desktop\mejillones_acii.txt" For Input As #1
Open "C:\Users\Franciscoo\Desktop\mejillones2.txt" For Output As #2

Input #1, Data$

While Not EOF(1)

Print #2, Data$

Input #1, Data$

Wend

No entiendo.
Supongo que tenés un archivo .txt en el cual hay 1323 registros.
Ahora, ¿qué significa dejarlo a la mitad? ¿guardar los primeros 661 registros? ¿guardar un registro si y otro no?
a)

b)

si exacto es dejar primero los 661 registros en otro archivo de salida

amigo cual es la opción de los programas para dejar los primeros 661 registros ? necesito la respuesta por favor te lo agradeceria

Buenas Faldo

Si lees las opciones que te pegó Facundo, te valen ambas. Tienes que ver que se abren dos ficheros uno de destino y otro de origen. Entonces lo que hace ese código en esencia es leer la mitad de los registros y así como los va leyendo escribiéndolos en el archivo de destino. Después lo que podrías hacer tú es si eso renombrar el archivo de destino y ya tendrías tu fichero con la mitad de registros.

Espero que ahora entendieras su código.

Un saludo

Gracias por tu comentario me sirvió mucho

La primera...

Perdón, en la línea 6 del listado (b) debe decir
(esto me pasa por responder rápido sin probar el código)