怎么在script 上chr出中文字符

wormone

怎么在script 上chr出中文字符？
我在使用script上，写了一个简单脚本
Sub Main
    Dim Result As Integer
    DIM i
    i=-20317  'i取值[-31936,-2562]就是汉字
Msgbox chr(i)
end sub
显示的不是中文，是一个乱码。
在线等高手解答，thx！