Запись в двоичные файлы - VB

Формулировка задачи:

Помогите, пожалуйста, чайнику разобраться в вот таком вопросе. Есть двоичные файлы (открываются нормально в win-hex), предназначенные для специальных аппаратов, структурированные следующим образом: 14 цифр (штрих-код), следующие 2 цифры показывают, что с этим штрих-кодом делать (каждая из этих двух цифр отвечает за независимые условия). Итого 16 цифр. Далее все повторяется, таких повторов по 16 цифр несколько тысяч. Нужна программа, которая читает эти файлы, изменяет по условию массив, а затем записывает обратно в файл такого же формата. Делаю уже давно эту программу, читает, изменяет массив у себя в памяти, а в файл с расширением bin записывать не хочет, либо записывает так, что все правильно читается в блокноте, а в win-hex неправильно. В массив записывается по 2 числа в элемент. Т.е., файл, который в win-hex начинается D460023700014702, читается A(1)= D4, A(2) = 60, A(3) = 02 и т.д., что мне даже удобнее. Скрин изначального файла (вложение) Вот код для чтения из этого файла:

B = CommonDialog1.filename
Open B For Binary As #1
Y = FileLen(B) / 8
ReDim A(Y * 8)
For i = 1 To Y * 8
Get #1, i, W
A(i) = Hex(W)
If Len(A(i)) = 1 Then
A(i) = "0" + A(i)
End If
Next i
Close #1

Переменные объявлены так:

i, Y, z, X As Long, W As Byte, A(), BC(), C(11), Q As String

Помогите, пожалуйста, с записью такого массива в таким же образом структурированный bin файл.

Решение задачи: «Запись в двоичные файлы»

textual
                            Листинг программы 
                        

                            B = CommonDialog1.FileName
Open B For Binary As #1
For i = 1 To Y * 8
Put #1, , CByte(CInt("&H" & A(i)))
Next i
Close #1
                        