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

Dim s As String = "4355543130302D42474D2056312E303120323031332D31312D323800"
Dim bte(s.Length / 2 -1) As Byte
For i As Integer = 0 To  bte.length - 1
    bte(i) = HexToDec(s.SubString(i*2,2))
Next

Return encoding.default.getstring(bte)