Innanzitutto salve a tutti.
Sono nuovo del forum e neofita di Visual basic.
Essendo il primo programmino che faccio, non riesco a superare il seguente scoglio:
Tramite un Output e le commondialogs salvo i campi compilati di un form (molto simile a quelli del web), in un file sequenziale .txt.
Riesco a ricaricare senza problemi ogni riga compilata nel suo specifico campo col seguente codice:
Private Sub Apri_Click()
Dim Data As String
Dim Agente As String
Dim Impressioni As Variant
Dim Salone As String
Dim Telefono As String
Dim Indirizzo As String
Dim Mail As String
Dim Durata As String
Dim Prodotti1 As String
Dim Prodotti2 As String
Dim Prodotti3 As String
Dim AssOp As String
Dim AssVeb As String
Dim Ser As String
Dim Aff As String
Dim Ritual As String
Dim Intensive As String
Dim Take As String
Dim Be As String
CommonDialog1.CancelError = True
On Error GoTo GestioneErrori
CommonDialog1.Filter = "Text files|*.txt"
CommonDialog1.ShowOpen
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Input As #1

Input #1, Data
Input #1, Agente
Input #1, Salone
Input #1, Telefono
Input #1, Indirizzo
Input #1, Mail
Input #1, Durata
Input #1, Prodotti1
Input #1, Prodotti2
Input #1, Prodotti3
Input #1, AssOp
Input #1, AssVeb
Input #1, Ser
Input #1, Aff
Input #1, Ritual
Input #1, Intensive
Input #1, Take
Input #1, Be

Input #1, Impressioni

Close #1

Text1(0).Text = Data
Text1(1).Text = Agente
Text1(2).Text = Salone
Text1(3).Text = Telefono
Text1(4).Text = Indirizzo
Text1(5).Text = Mail
Text1(6).Text = Durata
Text1(7).Text = Prodotti1
Text1(8).Text = Prodotti2
Text1(9).Text = Prodotti2
Text1(10).Text = AssOp
Text1(11).Text = AssVeb
Text1(12).Text = Ser
Text1(13).Text = Aff
Text1(14).Text = Ritual
Text1(15).Text = Intensive
Text1(16).Text = Take
Text1(17).Text = Be
Text1(18).Text = Impressioni

GestioneErrori:
Exit Sub
Close #1
End Sub

In grassetto ho evidenziato la mia difficoltà, ossia la possibilità di caricare nella textbox associata alla variabile Impressioni non solo una riga del file txt, ma anche più di una.
Se ho ben capito l'errore dipende da Input, che carica solo una riga, ma anche processando con Do while...Loop e cose simili non sono riuscito in nulla. (Evidenzio che non mi da alcun errore, semplicemente non carica nulla

Vi ringrazio per la disponibilità, e chiedo scusa se la spiegazione potrebbe sembrare poco chiara.