Dim i&, j&, Z1&, ByteArr() As Byte
 
Data(0) = "00D0C0DE00D0C0DE"
Data(1) = "2863D218FFF70008"
Data(2) = "4200000090000000"
Data(3) = "04F0BD1C00000006"
 
ReDim ByteArr(Len(Join(Data, "")) / 2 - 1)
Z1 = 0
For i = 0 To UBound(Data)
  For j = 1 To Len(Data(i)) Step 2
    ByteArr(Z1) = Val("&H" & Mid$(Data(i), j, 2))
    Z1 = Z1 + 1
  Next j
Next i
 
Open Pfad For Binary As #1
  Put #1, , ByteArr
Close #1

Gruss,

Zardoz