[vb6] Aiuto con istruzione PUT

[Rycare]

ciao
ho una serie di file 'ordinati' in maniera crescente da un valore. Sto cercando di utilizzare l'istruzione PUT allo scopo di riordinare questi file scambiandone quel valore. Seguendo diverse guide con esempi sono arrivato ad una sequenza di istruzioni. Ho semplificato qui sotto la routine che nell'intero sembra funzionare tranne che per la parte in cui cambio il valore. Ho anche allegato un'immagine per far vedere qual è la posizione del valore usando un editor esadecimale. Quello 0454 (1108 in dec) dovrebbe diventare il valore che voglio inserire ma il file continua a sballare dopo tanti tentativi. Qualche aiuto per favore? Grazie mille!

...
For X = 0 To Listafiles - 1 
iFile = FreeFile 
Open "ListaFile.ext" For Binary As iFile 
lByteLen = LOF(iFile) 
MyValue = 1108 + X 
MyPos= 25
Put iFile, MyPos, MyValue
Close iFile 
Next X
...