Grazie mille per le risposte
Ora funziona come volevo


codice:
Private Sub Command1_Click()
    Dim Path1 As String
    intfile1 = FreeFile
    FileInput = "file2.txt"
    Path = App.Path & "\" & FileInput
    Open Path For Input As #intfile1
    
    Dim Path2 As String
    FileOutput = "file1.txt"
    Path2 = App.Path & "\" & FileOutput
    
    While Not EOF(intfile1)
        Line Input #intfile1, rigaFile1

        
        intfile2 = FreeFile
        
        Open Path2 For Output As intfile2
        Print #intfile2, rigaFile1
        Close #intfile2
        
        'Esecuzione del programma che ha in input il file1.txt

    Wend
End Sub
Come posso fare ora per far saltare alla riga successiva nel file2, quando trova dei commenti preceduti da *?

Per esempio nel file2 ho:
codice:
*Dati primo rilevamento
34 34 54 21 65 4 656 767 67 78 989
23 43 6 56 767 88 78 787 989 56 76
*Dati secondo rilevamento
343 34 34 23 5545...
334 32 232....
*Dati n-esimo rilevamento
... .. . . . ..