VB6..velikost nove kreirane datoteke iz stare se čudežno spremeni

Imam hud problem, s katerim se prvič soočam....zato je problem :)

Imam kodo v datotekah module.bas in form.frm.

Module.bas vsebuje:
Public moja
Public dolzina, n As Long 'dolžina brane datoteke
Public VsnemaniData() As Byte 'sem se hranijo podatki datoteke
Public VhodnaDatoteka, IzhodnaDatoteka As String 'imeni vhodne in izhodne datoteke

Form.frm vsebuje

Private Sub Command1_Click() 'prebere datoteko
VhodnaDatoteka = App.Path & "\PoslanaDatoteka.jpg"
moja = FreeFile
Open VhodnaDatoteka For Binary Access Read As #moja
dolzina = FileLen(VhodnaDatoteka)
ReDim VsnemaniData(dolzina)
Get #moja, , VsnemaniData
Close #moja
End Sub

Private Sub Command2_Click() 'zapiše zatoteko
IzhodnaDatoteka = App.Path & "\VrnjenaDatoteka.jpg"
moja = FreeFile
Open IzhodnaDatoteka For Binary Access Write As #moja
Put #moja, , VsnemaniData
Close #moja
End Sub

Problem pa je sledeč:
Datoteka, ki se kreira iz prve je zmeraj večja za 1 B (en bajt), kot je bila vhodna datoteka.
Morda bo kdo rekel, da bi bilo enostavneje datoteko le preimenovati, toda to ni to kar rabim.
Do tega povečanja za en bajt pride tudi v primeru, ko hranjenih podatkov v 'VsnemaniData' popolnoma nič ne spreminjam.
Pri slikah težava ni kritična, saj delujejo tudi po tem povečanju, toda gre za hudo težavo ko tako berem in zapisujem v datoteko tipa *.zip, takrat se vsi podatki zgubijo.

Zadnji bajt, ki se na koncu datoteke kreira ima zmeraj vrednost 00(hex).

Kaj delam narobe?
Lepo prosim za pomoč.

Option base 0 | 1 ti pove ali se polja (array) zacnejo z indexom 0 oziroma 1.

Option base 0
Dim lala(3) As String ---> memberji so 0,1,2,3

Option base 1
Dim lala(3) As String ---> memberji so 1,2,3