Visual Basic 6 - Operazioni sui file

Ciao!
ecco il mio problema:

ho fatto questo codice ke è molto semplice:

Dim a(1 To 9000000) As String
Dim i As Integer
Dim b As Integer
Dim x As Integer
Dim AA As String
Private Sub Command1_Click()
Open App.Path & "\ciao.txt" For Input As #1
Do
b = b + 1
Line Input #1, a(b)
Loop Until EOF(1) = True
Close #1

Open App.Path & "\ciao.txt" For Append As #1
Print #1, " "
Close #1

Open App.Path & "\atr.txt" For Output As #1
For i = 1 To b
x = x + 1
Print #1, a(x)

Next i
Close #1

End Sub

Grazie a questo codice mi apre ciao.txt si salva il suo contenuto e poi alla fine gli aggiunge uno spazio. Poi apre atr.txt dove incolla il codice prima della modifika e fino a qui tuto funziona...

il problema è quando al posto di ciao.txt faccio aprire x esempio ciao.exe, infatti il codice lo esegue, ma quando vado ad aprire atr.txt mi accorgo ke ci sono scritte cose diverse da quelle del file originale come mai?
forse xkè i caratteri sono "criptati"?
come posso porre rimedio al mio probl.?

attendo risposte...

prova ad aprire il file in random

Mi dice:

Modalità file non valida

se apri il file in random non puoi usare la line input, usa la get.
Scusa ma è la curiosità.. a cosa ti serve editare un eseguibile???
Ciao.

aprire in random:

dim dati(1023) as byte
open xcorso for random as 1
do while not eof(1)
get 1,,dati
loop
close

per mettere in un file anziche get metti put

@antometal: grazie x il codice poi lo proverò adesso ho un pò da fare...

@LuigiBiasi: Mi serve sapere questo per il mio antivirus, devo correggere un bug...

Mi dice:

Lunghezza del record non valida.

si mi sono dimenticato un pezzo

dim dati(1023) as byte
open xcorso for random as 1 len=len(dati)
do while not eof(1)
get 1,,dati
loop
close