在VB中如何实现中文字符向UTF

在VB中如何实现中文字符向UTF

具体步骤为：
Public Function GetStringFromUTF8(ByRef data() As Byte) As String
Dim result As String, tmp(1 To 2) As Byte, char As String
For i = LBound(data) To UBound(data)
If data(i) < &H80 Then
result = result & Asc(data(i))
Else
If UBound(data) - i < 2 Then
Exit For
Else
tmp(2) = (data(i) - &HE0) * &H10 + (data(i + 1) - &H80) / 4
tmp(1) = (data(i + 1) Mod 4) * &H40 + (data(i + 2) - &H80)
char = buffer
result = result & char
i = i + 2
End If
End If
Next
GetStringFromUTF8 = result
End Function