VB6.0 字符串转码

基于VB6.0 的字符串转码，网上找了点资料，写了一段代码，记录下

'字符串编码转换，参数：源字符串，源字符串编码，目标字符串编码。编码举例----"gb2312"、"UTF-8"等
Public Function StrZM(ByVal SourceTxt As String, ByVal sCode As String, ByVal dCode As String) As String '
    Dim objStream As Object
    Dim OutStr As String
    
    OutStr = ""
    On Error GoTo 11
    Set objStream = CreateObject("Adodb.Stream")
    With objStream
        .Type = 2         'adTypeBinary = 1 ,adTypeText=2
        .Charset = dCode
        .Open
        .WriteText SourceTxt
        .Position = 0
        .Charset = sCode
        OutStr = .ReadText '读取文本到OutStr
        .Close
    End With
    Set objStream = Nothing
11:
    StrZM = OutStr
End Function

Stemp = StrZM(Stemp, "utf-8", "gb2312")

使用下来存在一个问题，转码方向好像反了，不知道怎么回事。