VB Hex 十六进制值保存写入文件，VB Hex 十六进制保存写入文件，VB Hex 十六进制值保存文件，VB Hex 十六进制值写入文件，VB Hex 十六进制写入文件，VB Hex 十六进制保存文件，VB 十六进制保存写入文件，VB 十六进制写入文件，VB 十六进制保存文件，VB Hex保存写入文件，VB 十六进制文件，VB Hex写入文件，VB Hex保存文件，VB 十六进制，VB Hex文件，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