Omkode fra hex til ascii?

Spørger for meget og Googler for lidt. Pinligt.

Fandt denne:

Public Function hex2ascii(ByVal hextext As String) As String
   
For y = 1 To Len(hextext)
    num = Mid(hextext, y, 2)
    Value = Value & Chr(Val("&h" & num))
    y = y + 1
Next y

hex2ascii = Value
End Function

Men den virker ikke efter hensigten, da den skal bruges til at ersatte alle hex forekomster i en hel artikel, mens den kræver at man leverer hex værdien til den. Nogle som har en løsning?

Lukketid