汉字转换成UTF16-LE编码

求大神指点，汉字转换成UTF16-LE编码的代码 编码 --------------------编程问答-------------------- Windows 下说的 Unicode 字符串就是这个编码。
内存中就是这样存放的。 --------------------编程问答--------------------

Dim b() As Byte

Dim s As String

Dim L As Long

Dim i As Long

    s = "汉字"

    L = Len(s) * 2

    ReDim b(L - 1)

    b = s

    For i = 0 To L - 1 Step 2

        Debug.Print Hex(b(i)), Hex(b(i + 1))

    Next

--------------------编程问答-------------------- C++下的代码， 转成VB就好了。
顺便说下， 下面的代码来自VCKBASE~

// GB2312 转换成　Unicode
void CChineseCodeLib::Gb2312ToUnicode(WCHAR* pOut,char *gbBuffer)
{
    ::MultiByteToWideChar(CP_ACP,MB_PRECOMPOSED,gbBuffer,2,pOut,1);
    return;
}

补充：VB ,  基础类