【VB技巧】VB Hex 十六进制值保存写入文件

VB Hex 十六进制值保存写入文件：

Dim S() As String, B() As Byte, I As Long, L As Long
S = Split("00 76 69 64 65 6F 00 7F 0F C1 04 00 00 00 00 00", " ")
L = UBound(S)
ReDim B(L) As Byte

For I = 0 To L
    B(I) = CByte(Val("&h" & S(I)))
Next

Open "C:A.TXT" For Binary As #1
    Put #1, , B
Close #1