Function chrval(vstrin)
    chrval = chr(vstrin)
end function