转换区位码到汉字

'获取GBK内码: 
Hex(Asc("汉"))   
'还原为汉字 : 
Chr(Val("&H" & Hex(Asc("汉"))))