>I'm not sure if it would give different results but I would use:

The implementation I did using your approach solved the issue. As per the other message, I adjusted to this:

        ' Convert from hexadecimal to string
        ' expC1 String in hexadecimal
        Public Function HexadecimalToString(ByVal tcString As String) As String
            Dim lnCounter As Integer = 0
            Dim loAscii As Encoding = Encoding.ASCII
            Dim loBytes((tcString.Length / 2) - 1) As Byte
            For lnCounter = 0 To (tcString.Length / 2) - 1
                loBytes(lnCounter) = [Byte].Parse(tcString.Substring(lnCounter * 2, 2), _
                 Globalization.NumberStyles.HexNumber)
            Next
            Return loAscii.GetString(loBytes)
        End Function

The Dim declaration with the -1 makes it ok with the exact match on the round trip.

Thanks