Decode Hex?

I have a function that encodes any string into hex:

Code:

---

Public Function encHex(strValue As String) As String
Dim i As Integer
For i = 1 To Len(strValue)
encHex = encHex + Hex(Asc(Mid(strValue, i, 1)))
If (Len(encHex) Mod 2) = 0 Or (Len(encHex) - 1 Mod 2) Then
encHex = encHex
End If
Next i
encHex = Trim(encHex)
End Function

---

Now I need to reverse that function to decode it.

thx in advance!

SeeThis thread