Per Salvare ed aprire un file uso le istruzioni Write #FileNum, e Input #FileNum, .
Per i controlli che formano delle matrici non ho problemi a Salvare ed Aprire, ma le difficoltà sorgono quando oltre alle predette matrici vi sono da salvare ed aprire dei dati inseriti in singoli Txt, come segue:
codice:
'....  .... .... .... .... Salva:
Open FileName For Output As #FileNum
            For s = FrmTariffa.TxtVS1.LBound To FrmTariffa.TxtVS1.UBound Step 1
                If FrmTariffa.TxtVS1(s).Visible = True Then
                    Write #FileNum, FrmTariffa.TxtVS1(s).Text
                End If
            Next s
            For s = FrmTariffa.TxtVC1.LBound To FrmTariffa.TxtVC1.UBound Step 1
                If FrmTariffa.TxtVC1(s).Visible = True Then
                    Write #FileNum, FrmTariffa.TxtVC1(s).Text
                End If
            Next s
            Write #FileNum, FrmTariffa.TxtControv.Text; FrmTariffa.txtMin.Text; _
            FrmTariffa.txtMax.Text; FrmTariffa.txtMedio.Text; _
            FrmTariffa.txtConcil.Text; FrmTariffa.txtFatt.Text; FrmTariffa.txtMax2.Text 
        Close #FileNum

'....  .... .... .... .... Apre:
Open FileName For Input As FileNum
        ' Trova la fine del file:
        Do While Not (EOF(FileNum) = True)
            For y = FrmTariffa.TxtVS1.LBound To FrmTariffa.TxtVS1.UBound Step 1
                ReDim vrNumer(y)
                Input #FileNum, vrNumer(y)
                    If vrNumer(y) <> "" Then
                        FrmTariffa.TxtVS1(y).Visible = True
                    End If
                    FrmTariffa.TxtVS1(y).Text = vrNumer(y)
            Next y
            For y = FrmTariffa.TxtVC1.LBound To FrmTariffa.TxtVC1.UBound Step 1
                ReDim vrNumer(y)
                Input #FileNum, vrNumer(y)
                    If vrNumer(y) <> "" Then
                        FrmTariffa.TxtVC1(y).Visible = True
                    End If
                        FrmTariffa.TxtVC1(y).Text = vrNumer(y)
            Next y
               If (EOF(FileNum)) = False Then
                    Close #FileNum      'Chiude il file
                    MsgBox "Errore nell'apertura del file! Ripetere l'operazione.", vbExclamation + vbOKOnly, "Determinazione del ..."
                    boolVerifica1 = True
                    Exit Sub            'Esce dalla routine
                End If
        Loop                            'Esce da DO
    Close #FileNum
Il predetto codice mi consente di Salvare i dati, ma non sò come fare per aprire quelli contenuti nei singoli Txt (quelli in Blue).
Ho provato in diversi modi, ma ...
Potreste darni una mano?
Grazie!