Prova questo codice:


codice:
Dim testo As Variant

Open "percorso/nomefile.estensione" For Input As #1
Input #1, testo
Label1.Caption = testo  ' inserisci il testo della veriabile nella cesella di testo 
Close #1
Ciao... :sgrat: