Dim strSrc As String = "`ET-CT/东部"
Dim arr As Byte() = System.Text.Encoding.Default.GetBytes(strSrc)
Dim i As Integer
Dim strDest As String
For i = 0 To UBound(arr) - 1
strDest += Convert.ToString(arr(i), 16)
Next
Dim str As String = "6045542d43542fb6abb2bf2020202020"
Dim len As Integer = str.Length \ 2
Dim arr As Byte()
ReDim arr(len)
Dim i As Integer
For i = 0 To len - 1
arr(i) = Convert.ToByte(str.Substring(i * 2, 2), 16)
Next
Dim 对应字符串 As String = System.Text.Encoding.Default.GetString(arr)