Grazie Boolean, ovviamente funziona, posto tutto lo script dei due button per i ciuchi come me che troveranno le stesse difficoltà:
codice:
Private Sub Salva_Click()
Dim TestoDaSalvare As String
TestoDaSalvare = Replace(Text1(18).Text, vbCrLf, "|")
CommonDialog1.CancelError = True
On Error GoTo GestioneErrori
CommonDialog1.Filter = "Text Files|*.txt"
CommonDialog1.ShowSave
NomeDelTesto = CommonDialog1.FileName
Open NomeDelTesto For Output As #1
Print #1, Text1(0)
Print #1, Text1(1)
Print #1, Text1(2)
Print #1, Text1(3)
Print #1, Text1(4)
Print #1, Text1(5)
Print #1, Text1(6)
Print #1, Text1(7)
Print #1, Text1(8)
Print #1, Text1(9)
Print #1, Text1(10)
Print #1, Text1(11)
Print #1, Text1(12)
Print #1, Text1(13)
Print #1, Text1(14)
Print #1, Text1(15)
Print #1, Text1(16)
Print #1, Text1(17)
Print #1, TestoDaSalvare

Close #1
GestioneErrori:
Exit Sub
End Sub
codice:
Private Sub Apri_Click()
Dim TestoDaMostrare As String
Dim Impressioni As String
Dim Data As String
Dim Agente As String
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
    TestoDaMostrare = Replace(Impressioni, "|", vbCrLf)

  
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 = TestoDaMostrare

GestioneErrori:
Exit Sub
Close #1
End Sub
Questo è quanto.
Ancora Grazie
Cordiali saluti Domenico