Hola, alguien podría explicarme como descifra esta función?

Function descifrar(DataValue As Variant) As Variant
 
        Dim x As Long
        Dim Temp As String
        Dim HexByte As String
 
        For x = 1 To Len(DataValue) Step 2
 
            HexByte = Mid(DataValue, x, 2)
            Temp = Temp & Chr(ConvToInt(HexByte))
 
        Next x
        ' retorno
        descifrar = Temp
 
End Function

Esta cadena esta cifrada con ese algoritmo...


Saludos y espero que puedan ayudarme 

Vale vale, muchas gracias, ha sido una pregunta un poco tonta... 

Saludos

Como acotación: La función se podría simplificar asi:

Function descifrar(DataValue As Variant) As Variant
Dim x As Long
Dim Temp As String
Dim HexByte As String
 
For x = 1 To Len(DataValue) Step 2
    HexByte = Mid(DataValue, x, 2)
    'Temp = Temp & Chr(ConvToInt(HexByte))
    Temp = Temp & Chr(cInt("&H" + HexByte))
Next x
descifrar = Temp
End Function
 

Asi ConvToInt no haria falta.

Aunque, bueno, es sólo una acotación...

Saludos!