主题：求狐表16位转字符串，字符串转16位代码

这样更简单，全是帮助的知识：

Dim s As String = "4355543130302D42474D2056312E303120323031332D31312D323800"
Dim v As String
For i As Integer = 0 To  s.length - 1 Step 2
    v = v & chr(HexToDec(s.SubString(i,2)))
Next
Return v