Ciao ho un file txt generato da questa funzione:

codice:
Public Function SalvaLista(NomeFile As String)
Dim FileN As Integer
If Dir(NomeFile) <> "" Then
    Kill NomeFile
End If
    FileN = FreeFile
    Open NomeFile For Output As #FileN
    Write #FileN, "ATTIVI=" & frmOpta.txtATTIVI.Text
    Write #FileN, "BANCHE=" & frmOpta.txtBANCHE.Text
    Write #FileN, "CASSA=" & frmOpta.txtCASSA.Text
    Write #FileN, "CLIENTI=" & frmOpta.txtCLIENTI.Text
    Write #FileN, "FORNITORI=" & frmOpta.txtFORNITORI.Text
    Write #FileN, "PASSIVI=" & frmOpta.txtPASSIVI.Text
    Close #FileN
End Function
In output il file generato è cosi composto:

"ATTIVI=2.80"
"BANCHE=2.20"
"CASSA=2.10"
"CLIENTI=2.30"
"FORNITORI=2.40"
"PASSIVI=2.81"


A questo punto leggo i dati con questa funzione:

codice:
Public Function CaricaLista(NomeFile As String)
Dim FileN As Integer
Dim VoceLetta As String
Dim Testo As TextBox
Dim Valore As String
If Dir(NomeFile) = "" Then
MsgBox "Il file non esiste. L'operazione sarà annullata"
Exit Function
End If
FileN = FreeFile
Open NomeFile For Input As #FileN

Do While EOF(FileN) = False
    Input #FileN, VoceLetta
    Valore = Split(VoceLetta, "=")
    Testo = Split(VoceLetta, "=")
    MsgBox "Valore: " & Valore & vbNewLine & "Testo: " & Testo
Loop
Close #FileN
End Function
Solo che non riesco a prelevare i valori poichè il file di testo mi passa: "BANCHE=2.20"
 e lo split non legge, dovrei eliminare gli Apici, ma con Replace non riesco ...