这样子中意不?
' 变量声明
Dim Buffer() As Byte ' 文字字节数组
Dim i As Long ' 计数器
Dim HexString As String ' 输出的字符串
' 获得符合要求的16进制字符串(已经被填充0)
Buffer = Replace(Format(Hex(Val(Text1.Text)), "@@@@"), " ", "0")
MsgBox Buffer ' 测试显示
' 逆转字符串
For i = 0 To UBound(Buffer) Step 2
HexString = Chr(Buffer(i) * &H100 + Buffer(i + 1)) & HexString
Next
MsgBox HexString ' 测试显示
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024