Write hex values to binary file in VBA Excel

[Fractalis]

Hello to all,


I want to write the hexadecimal values to a binary file in order they look the same when I open in hex editor.

My current code is this:

Sub Write2Binary()
Dim i As Integer
Dim nFileNum As Integer
Dim sFilename As String


sFilename = "D:\OutputPath\Test.bin"


strBytes = "F3 A1 02 00 04 00 8D 24 44 C3 8C 03 83 49 26 92 B5"
arrBytes = Split(strBytes)


nFileNum = FreeFile


Open sFilename For Binary Lock Read Write As #nFileNum 


  For i = LBound(arrBytes) To UBound(arrBytes)
    ' No byte position is specified so writing begins at byte 1
    Put #nFileNum , , arrBytes(i)
  Next i


Close #nFileNum 
    
End Sub

This code produces the following binary file that when I open it in a Hex editor looks like this:

08 00 02 00 46 33 08 00 02 00 41 31 08 00 02 00
30 32 08 00 02 00 30 30 08 00 02 00 30 34 08 00 
02 00 30 30 08 00 02 00 38 44 08 00 02 00 32 34 
08 00 02 00 34 34 08 00 02 00 43 33 08 00 02 00 
38 43 08 00 02 00 30 33 08 00 02 00 38 33 08 00 
02 00 34 39 08 00 02 00 32 36 08 00 02 00 39 32 
08 00 02 00 42 35

That is different to the content I want to have in binary file. When I open the file in Hex editor I like to see the following content:

F3 A1 02 00 04 00 8D 24 44 C3 8C 03 83 49 26 92 B5

How can I do this?

Thaks for any help.

 

[Cetico]

It's done!
I used strings all the way as you suggested and apparently it's working, thanks!
This is how I handled the header:

 NumSamples = ncaracteres * 6 * wavesperbit * samplesperwave
 subchunk2size = Hex(NumSamples)
 subchunk2size = Right(subchunk2size, 2) & " 0" & Left(subchunk2size, 1) & " 00 00"
 
 
 Header = "52 49 46 46 24 08 00 00 57 41 56 45 66 6d 74 20 10 00 00 00 01 00 01 00 44 ac 00 00 20 62 05 00 02 00 10 00 64 61 74 61 "
 Header = Header & subchunk2size

This chunk was later converted to a byte array to which I appended the rest of the data, after also being converted to a byte array.

 

[GWteB]

WELL DONE!
It's usually more satisfying when you finally get it done yourself.