Function chrval(vstrin)
  chrval = chr(vstrin)
End Function