Объясните plz где ошибка?
Читаю из файла данные в переменную (файл например состоит из нулей)
00 00 00 00)
Записываю эту переменную в новый файл (создается программно)
получаю в новом файле 08 00 00 00, а ожидается индентичность файлов.
Вообще то изначальная задача - удалить из файла 3 первых байта
и добавить 3 нуля в конец.

Dim MyFile
Dim FileName As String
Dim usr As String * 1

MyFile = FreeFile
FileName = "C:\test.bin"
usr = ""
stroka = ""
Open (FileName) For Binary As #1
Do While EOF(1)
stroka = stroka & usr
Loop
Close #1

FileName = "c:\test_cure.bin"
Open (FileName) For Binary As #1
Put #1, 1, stroka
Close #1

Спасибо