NLDSoft

У меня возник вопрос. Есть байтовый массив заполненный какой то информацией после выполнения определённого действия я сохраняю этот массив в файл в бинарном режиме, но в конце добавляется 0 и так всегда. Вопрос как от этого избавится ?

Пример кода:
'Это для считывания файла
Dim bBuffers()  Byte
Open "C:\Test.txt" for Biynary as #1
        ReDim bBuffer(1 To LOF(1))
        Get #1, , bBuffer
Close #1
'Это для записи в файл
Open "C:\Test2.txt" for Biynary as #2
        Put#2, , bBuffer
Close #2