al momento ho scritto così

codice:
    Dim Path As String
    intfile = FreeFile
    FileInput = "file2.txt"
    Path = App.Path + "\" + FileInput
    Open Path For Input As #intfile

così ho aperto il file2 con tutti i dati, dove ogni riga corrisponde ad un dato
ora non so come copiare una riga alla volta e metterla nel file1 che deve leggere il programma, per poi riandare a leggere la riga successiva del file2 e sovrascriverla nel file1