Dopo che prendo i dati dalla prima riga del file di testo, vorrei fare una prova e scriverli in nuovo file txt formattati come dico io.

Dim contenuto As String
Dim data As Date


Open "c:\......" For Input As #1
Line Input #1, contenuto
data = Mid(contenuto, 1, 10)
Time = Mid(contenuto, 12, 8)

Close #1

Adesso vorrei prendere il contenuto delle variabili contenuto, e data e scriverle in nuovo file txt.
Come?
grazie