Option Explicit
    Public F As Integer 'Dichiara la variabile per il n° file libero
    '
    
    Public Function WriteFile(Testo As String, PathFile As String) 'funzione per la scrittura del file...
        F = FreeFile 'imposta in F il numero di file libero
        Open PathFile For Output As #F 'scrive il file in PathFile che indica il (percorso file)
            Print #F, Testo 'scrive nel file la variabile Testo
        Close #F 'chiude il file
            MsgBox "Creazione del file in " & PathFile & " avvenuta con successo!.", vbInformation, "Informazione"
            Exit Function
    End Function

    Public Function ReadFile(PathFile As String, Controllo As TextBox) 'Lettura file
        F = FreeFile
        Dim Buffer As String
        Open PathFile For Input As #F 'apre il file in modalità lettura (input)
            Input #F, Buffer 'legge il file e getta tutti in Buffer
            Controllo.Text = Buffer 'scrive nel controllo: Buffer
        Close #F 'chiude il file...
    End Function