调试易

Private Function funUTF8ToUniCode(ByRef bytUTF8() As Byte) As String
    Dim utfLen As Long
    Dim i As Long
    Dim j As Long
    Dim k As Long
    Dim N As Long
    Dim B As Byte
    Dim cnt As Byte
    Dim Buf() As String
    utfLen = -1
On Error GoTo errFun
    funUTF8ToUniCode = ""
    utfLen = UBound(bytUTF8)
    If utfLen = -1 Then Exit Function    ReDim Buf(utfLen)
    i = 0
    j = 0
    Do While i <= utfLen
        B = bytUTF8(i)
        If (B And &HFC) = &HFC Then
            cnt = 6
        ElseIf (B And &HF8) = &HF8 Then
            cnt = 5
        ElseIf (B And &HF0) = &HF0 Then
            cnt = 4
        ElseIf (B And &HE0) = &HE0 Then
            cnt = 3
        ElseIf (B And &HC0) = &HC0 Then
            cnt = 2
        Else
            cnt = 1
        End If
        If i + cnt - 1 > utfLen Then
            Buf(j) = "?"
            Exit Do
        End If
        Select Case cnt
            Case 2
                N = B And &H1F
            Case 3
                N = B And &HF
            Case 4
                N = B And &H7
            Case 5
                N = B And &H3
            Case 6
                N = B And &H1
            Case Else
                Buf(j) = Chr(B)
                GoTo Continued:
        End Select
        For k = 1 To cnt - 1
            B = bytUTF8(i + k)
            N = N * &H40 + (B And &H3F)
        Next
        Buf(j) = ChrW(N)
Continued:
        i = i + cnt
        j = j + 1
    Loop
    funUTF8ToUniCode = Join(Buf, "")
errFun:
    
End Function先用这个函数可以把UTF8转换为UniCode。
然后再解码

第二个好像只针对gb2312时base64的解码，请问有没有utf-8时的base64解码，谢谢~！

最精髓的是去看 PHP 的开源代码，里面有编码和解码函数源代码，当然还有别的值得看的东西