Public Function Unicode(ByVal Chinese As String) As String
Dim tmp As String = Chinese
Dim tmpBy As Byte() = XXXXXXXXXXXXXXXXXXXXXXXXXXXXtBytes(tmp)
Dim newBy As Byte() = XXXXXXXXXXXXXXXXXXXXXXXnvert(System.Text.Encoding.UTF8, XXXXXXXXXXXXXXXXXXXXXXXfault, tmpBy)
Dim URL As String = ""
For i As Long = 0 To newBy.Length - 1
URL = URL + "%" + Hex(newBy(i)).XXXXXXXXXXXim
Next
'Return ("XXXXXXXXXXXXXXXXXXXXXX/" + XXXXXXim)
Return (XXXXXXim)
End Function
