把GB2132转换成unicode

如题
无论用StrConv函数也好MultiByteToWideChar也好
只要能把GB2132的字符串转换成unicode的就行
Option Explicit

'API declartion
Public Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Public Const CP_UTF8 = 65001

'Decode the utf-8 text to Chinese
Public Function UTF8_Decode(bUTF8() As Byte) As String
Dim lRet As Long
Dim lLen As Long
Dim lBufferSize As Long
Dim sBuffer As String
lLen = UBound(bUTF8) + 1
If lLen = 0 Then Exit Function
lBufferSize = MultiByteToWideChar(CP_UTF8, 0, VarPtr(bUTF8(0)), lLen, 0, 0)
sBuffer = String$(lBufferSize, Chr(0))
lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(bUTF8(0)), lLen, StrPtr(sBuffer), lBufferSize)
UTF8_Decode = sBuffer
End Function
这对某些

有没有办法把utf8下的gb2132乱码转换回来？ 怎么把txt文本转换成unicode格式 unicode如何转换成ANSI? 如何将unicode的编码转换成gb2312编码 VB unicode和汉字转换 在JAVA中怎么把SJIS码转换为UTF-8或者UNICODE 在EXCEL表格里如何将以Unicode文本形式的存在的银行账号转换成普通数字格式？ 台湾游戏出乱码 Unicode转换效果也不好 怎么办 为什么要进行unicode到GB2312的转换？ 格式转换(把.swf转换成.MTV)