VB²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode

Private Function Utf8ToUni(B() As Byte) As String
   '²»Ê¹Óà API£¬½« Utf8 ת»»Îª Unicode
   Dim BU As Long
  
   On Error Resume Next
   BU = -1: BU = UBound(B)
   If BU = -1 Then Exit Function
   On Error GoTo 0
  
   Dim I As Long, K As Long, N As Long
   Dim B1 As Byte, cnt As Byte
  
   I = LBound(B)
   If BU > I + 1 Then
      If B(I) = 239 And B(I + 1) = 187 And B(I + 2) = 191 Then I = I + 3 'È¥µôÇ°Èý¸ö×Ö·û
   End If
  
   Do
      If I > BU Then Exit Do
      B1 = B(I)
      
      If (B1 And &HFC) = &HFC Then
         cnt = 6
      ElseIf (B1 And &HF8) = &HF8 Then
         cnt = 5
      ElseIf (B1 And &HF0) = &HF0 Then
         cnt = 4
      ElseIf (B1 And &HE0) = &HE0 Then
         cnt = 3
      ElseIf (B1 And &HC0) = &HC0 Then
         cnt = 2
      Else
         cnt = 1
      End If
      
      If I + cnt - 1 > BU Then Utf8ToUni = Utf8ToUni & "?": Exit Do
  
      Select Case cnt
      Case 2:    N = B1 And &H1F
      Case 3:    N = B1 And &HF
      Case 4:    N = B1 And &