سلام بر دوستان
Open "test.biN"for Binary As #2

Put#2 , B ' write a byte
...