Visual Basic 6 - da esadecimale ad ascii

Buongiorno, ho una connessione seriale dalla quale ricevo in esadecimale, voglio ora trasformare questa in carattere ascii. Come si fa?

Ho risolto! Vi posto il codice se dovesse serivre a qualcun altro:

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

Se scrivi

For y = 1 To Len(hextext) Step 2

puoi togliere y=y+1

Ciao