请教unicode转换GBK

Question

请教一下我想输入汉字的unicode码，然后转换成GBK码，例如“一”unicode为0x4E00，GBK为0xD2BB
看了又一个函数 StrConv(sStr,   vbFromUnicode,   &H804)  
不知道如何用
请高手指教，不知道是不是用这个函数，但是第一个变量字符串不知道赋什么值

Answer 1

Private Sub Form_Load()
Dim b() As Byte
b = StrConv("一", vbFromUnicode) '转换为本地机器编码,GB2312/GBK
Debug.Print Hex(CCur(b(0)) * 256 + b(1))
Dim b2 As Currency
b2 = AscW("一") 'VB内部采用unicode
Debug.Print Hex(b2)
End Sub