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

Dim A, B As String
 
Private Sub Timer1_Timer()
 
If Check1.Value = 1 Then
  A = "00D0C0DE00D0C0DE"
  B = "2863D218FFF70008"
 
Else
  A = "0"
  B = "0"
End If
 
End Sub
 
 
 
Private Sub Command1_Click()
Dim i&, j&, Z1&, ByteArr() As Byte
Dim Data(2) As String
 
 
Data(0) = A
Data(1) = B
 
 
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 "\test.gct" For Binary As #1
 
  Put #1, , ByteArr
Close #1
End Sub