一个例子, 显示出变量s中保存的一系列十六进制值所对应的字符串:Private Sub Form_Load() Dim s As String, t As String, i As Integer s = "21 22 23 24 25 26 B0 A1 B0 A2" t = "" For i = 0 To Len(s) \ 3 t = t & ChrB(Val("&H" & Mid(s, i * 3 + 1, 2))) Next i Debug.Print StrConv(t, vbUnicode) End End Sub
Dim s As String, t As String, i As Integer s = "21 22 23 24 25 26 B0 A1 B0 A2"
t = ""
For i = 0 To Len(s) \ 3
t = t & ChrB(Val("&H" & Mid(s, i * 3 + 1, 2)))
Next i
Debug.Print StrConv(t, vbUnicode)
End
End Sub