Ho scritto così e funziona però le righe prelevate dal file2 vengono accodate nel file1, mentre invece deve essere sempre sovrascritta (il programma esterno legge solo una riga)

codice:
Private Sub Command1_Click()
    Dim Path1 As String
    intfile1 = FreeFile
    FileInput = "file2.txt"
    Path = App.Path & "\" & FileInput
    Open Path For Input As #intfile1

    While Not EOF(intfile1)
        Line Input #intfile1, rigaFile1

        Dim Path2 As String
        intfile2 = FreeFile
        FileOutput = "file1.txt"
        Path2 = App.Path & "\" & FileOutput
        Open Path2 For Append As intfile2
        Print #intfile2, rigaFile1
        Close #intfile2
        
        'Esecuzione del programma che ha in input il file1.txt

    Wend
End Sub
Altra domanda, per la lettura del file2 avevo messo Output ma mi dava errore, come mai lo devo aprire come Input?