Visual Basic 6 - Caricamento File

Ciao a tutti!
Mi sono imbattuto in un fatto molto strano che non riesco a capire. In un modulo ho fatto una Sub per aprire file "criptati". Ecco il codice:

Public Sub Apri(Path As String, Testo As TextBox)
Dim Inizio(1 To 99999) As String
Dim I As Integer
On Error Resume Next
Open Path For Input As #1
Do
I = I + 1
Line Input #1, Inizio(I)
Decripta (Inizio(I))
Inizio(I) = Module1.TestoDecriptato
Testo.Text = Testo.Text & Inizio(I)
Loop Until EOF(1) = True
Close #1
End Sub

Penso che non la funzione di criptaggio e di decriptaggio vadano bene perchè nella form load ho messo:

Apri App.Path & "\File.dat", Text1

e lo carica correttamente nella text1 e decriptato.
Poi però volevo fare anche un pulsante che ricaricava direttamente il file senza chiudere e riaprire. Nel pulsante ho messo lo stesso codice.
Ma la cosa strana è che nella text1 mi carica il testo corretto e decriptato, ma due volte!

Facciamo ad esempio che il testo (decriptato) di note.dat sia: "ciao"

allora apro il progr. e nella text1 trovo:
ciao

facendo aggiorna invece trovo:
ciao
ciao

Come mai? come posso risolve?

Nel codice che aggiorna, all'inizio, devi scrivere

Testo.Text = ""

altrimenti il testo sara' sempre aggiunto ...

Lo facevo a mano, cioè x vedere se fungeva cancellavo tutta la text1 ke era vuota eppure il testo si sommava...

p.s. ho provato anche a "ripulire" le variabili dopo l'uso ma niente

Inseriscilo nel codice ... e mostra tutto il codice esatto che stai utilizzando ... altrimenti come si fa una prova?

Tu intendi il codice per criptare decriptare?

p.s. è Quello tutto il codice per l'apertura del file....

Guarda che, personalmente, non ho capito quasi nulla di quello che fai e che ti succede ...

Dovresti spiegare meglio ...

cercherò di essere + kiaro...
Allora il codice postato all'inizio apre il file.dat contenente in maniera criptata un testo.
Nella form load c'è il codice ke rikiama la sub "Apri" q quindi il testo viene messo nella text1 correttamente.
Premendo un pulsante di aggiornamento, nel codice di questo pulsante ho messo lo stesso codice della form_load, uando carica il file nella text1 lo carica doppio (anche se la text1 è vuota).

capito?

Scusa ... mostra TUTTO (ma TUTTO) il codice del programma e poi ne parliamo ...

P.S. Secondo me non usi la

Testo.Text = ""