i think it will hepl u

function hextochr(strsms)

Dec2Chr = ""

Hex2Dec = 0

for j=1 to len(strsms)

InputData = Mid(strsms,j,2)

j=j+1

HexStep = 0

DecOut = 0

select case InputData

case "13" Dec2Chr = Dec2Chr & "Γ"

case "10" Dec2Chr = Dec2Chr & "Δ"

case "19" Dec2Chr = Dec2Chr & "Θ"

case "1A" Dec2Chr = Dec2Chr & "Ξ"

case "14" Dec2Chr = Dec2Chr & "Λ"

case "16" Dec2Chr = Dec2Chr & "Π"

case "18" Dec2Chr = Dec2Chr & "Σ"

case "12" Dec2Chr = Dec2Chr & "Φ"

case "17" Dec2Chr = Dec2Chr & "Ψ"

case "15" Dec2Chr = Dec2Chr & "Ω"

case "41","61" Dec2Chr = Dec2Chr & "Α"

case "42","62" Dec2Chr = Dec2Chr & "Β"

case "45","65" Dec2Chr = Dec2Chr & "Ε"

case "48","68" Dec2Chr = Dec2Chr & "Η"

case "49","69" Dec2Chr = Dec2Chr & "Ι"

case "4B","6B" Dec2Chr = Dec2Chr & "Κ"

case "4D","6D" Dec2Chr = Dec2Chr & "Μ"

case "4E","6E" Dec2Chr = Dec2Chr & "Ν"

case "4F","6F" Dec2Chr = Dec2Chr & "Ο"

case "50","70" Dec2Chr = Dec2Chr & "Ρ"

case "54","74" Dec2Chr = Dec2Chr & "Τ"

case "58","78" Dec2Chr = Dec2Chr & "Χ"

case "59","79" Dec2Chr = Dec2Chr & "Υ"

case "5A","7A" Dec2Chr = Dec2Chr & "Ζ"

case "55","75" Dec2Chr = Dec2Chr & "U"

case "47","67" Dec2Chr = Dec2Chr & "G"

case "43","63" Dec2Chr = Dec2Chr & "C"

case "4C","6C" Dec2Chr = Dec2Chr & "L"

case "44","64" Dec2Chr = Dec2Chr & "D"

case "46","66" Dec2Chr = Dec2Chr & "F"

case "4A","6A" Dec2Chr = Dec2Chr & "J"

case "51","71" Dec2Chr = Dec2Chr & "Q"

case "52","72" Dec2Chr = Dec2Chr & "R"

case "53","73" Dec2Chr = Dec2Chr & "S"

case "56","76" Dec2Chr = Dec2Chr & "V"

case "57","77" Dec2Chr = Dec2Chr & "W"

case "20" Dec2Chr = Dec2Chr & " "

case "3A" Dec2Chr = Dec2Chr & ":"

case "2E" Dec2Chr = Dec2Chr & "."

case "30" Dec2Chr = Dec2Chr & "0"

case "31" Dec2Chr = Dec2Chr & "1"

case "32" Dec2Chr = Dec2Chr & "2"

case "33" Dec2Chr = Dec2Chr & "3"

case "34" Dec2Chr = Dec2Chr & "4"

case "35" Dec2Chr = Dec2Chr & "5"

case "36" Dec2Chr = Dec2Chr & "6"

case "37" Dec2Chr = Dec2Chr & "7"

case "38" Dec2Chr = Dec2Chr & "8"

case "39" Dec2Chr = Dec2Chr & "9"

end select

next

hextochr = ""

hextochr = Dec2Chr

End function