VB中怎么用MD5给中文加密

VB中如何用MD5给中文加密？
调用DigestStrToHexStr( "谢谢 ")
这样就会溢出？怎么弄才可以给中文加密?




------解决方案--------------------
学习
------解决方案--------------------
学习
------解决方案--------------------
学习
------解决方案--------------------
网上很多，找一下。不过要do Fully Testing。
------解决方案--------------------
这句有问题：
Private Function StringToArray(InString As String) As Byte()
Dim I As Integer
Dim bytBuffer() As Byte
ReDim bytBuffer(Len(InString))
For I = 0 To Len(InString) - 1
bytBuffer(I) = Asc(Mid(InString, I + 1, 1))
Next I
StringToArray = bytBuffer
End Function
------解决方案--------------------
太牛了，看不懂！
------解决方案--------------------
StringToArray 这个函数可以直接用strconv代替

StringToArray = strconv(InString,vbfromunicode)
------解决方案--------------------
学习