Dim file As String          'indirizzo file di origine
Dim completo As String      'indirizzo file destinazione
Dim nf As Integer           'freefile
Dim testo As String         'tutto il testo del file di origine
Dim riga As String          'variabile per lineinput
Dim lung As Integer         'lunghezza del testo
Dim num As String           'numero totale di colonne
Dim linea As String         'testo con tot caratteri = a colonne per linea
Dim c As Integer            'contatore per linea
Dim attuale As Integer      'carattere attuale per mid
Dim i As Integer            'ciclo for per estrazione caratteri
Dim ascatt As Integer       'ascii del carattere attuale
Dim ascsucc As Integer      'ascii del carattere successivo