軟體工程師修練之路

    Public Function StrToHex(ByVal str As String) As String
        Dim buf() As Byte = System.Text.Encoding.Default.GetBytes(str)
        Dim result As String = ""
        For i As Integer = 0 To buf.Length - 1
            result += String.Format("{0:X}{1:X}", buf(i) \ &H10, buf(i) Mod &H10)
        Next
        Return result
    End Function

    ''' <summary>16進位轉字串</summary>
    Public Function HexToStr(ByVal str As String) As String
        Dim b, t As Integer
        Dim result As String = ""
        For i As Integer = 0 To str.Length - 1
            t = Integer.Parse(str(i), Globalization.NumberStyles.AllowHexSpecifier)
            If i Mod 2 = 0 Then
                b = t
            Else
                b = b * &H10 + t
                result += Convert.ToChar(b)
            End If
        Next
        Return result
    End Function

Dim IntValue As Integer = Integer.Parse(Str, Globalization.NumberStyles.AllowHexSpecifier)