Criptare e decriptare un file

[Raytracer]

Ciao a tutti,
sto iniziando a fare i miei primi esperimenti col software. Tra questi, ho provato a modificare il file d'esempio dell'help online sulla funzione crypto per far sì che:
- venga letto un file prova.txt (è un normale file di testo, composto da circa 15 righe)
- criptato
- scritto il file criptato prova2.txt
Ovviamente, senza successo...
Riporto il listato (non inorridite):

'Crypto is a Crypto object and Bit is a Bitwise object
Sub Globals
Dim string(0) As Byte, secret(0) As Byte
PassPhrase = "my key" 'This is not recommended in real applications!!!
End Sub

Sub App_Start
FileOpen (c1,"prova.txt",cRead ,, cASCII)
Test = FileRead (c1)
FileClose (c1)
Encrypt
Bit.New1
Crypto.New1
End Sub

Sub Encrypt
string() = Bit.StringToBytes(Test,0,StrLength(Test)) 'Convert the string to an array of bytes.
secret() = Crypto.Encrypt(PassPhrase, string()) 'Save the encrypted data.
Encrypted = secret()
FileOpen (c1,"prova2.txt",cWrite,,cASCII)
FileWrite (c1,Encrypted)
FileClose (c1)
End Sub


Se lo mando in esecuzione, ottengo un errore dove si riporta che la variabile Test non è mai stata usata (alla riga 14, corrisponde al secondo EndSub).
Se elimino la Subroutine Encrypt includendola nel corpo della prima, il file prova2.txt viene scritto ma è vuoto...
Se provo inoltre ad escludere la criptatura, riesce a scrivere sul file prova2.txt ma solo la prima riga...

Non riesco a trovare soluzione rileggendo le sintassi... qualcuno può aiutarmi a capire?
Di sicuro nel listato vi sono errori grossolani, non c'è dubbio. Grazie anticipatamente, e scusate l'incompetenza...

[Raytracer]

Cercando una risposta, mi sono imbattuto in questo topic:
Encrypt / Decrypt a complete file
relativo proprio al crypt-decrypt di un file.
Grazie a Erel, posso capire i miei errori!
Problema risolto!