Public Function Unicode(ByVal Chinese As String) As String
Dim tmp As String = Chinese
Dim tmpBy As Byte() = System.Text.Encoding.UTF8.GetBytes(tmp)
Dim newBy As Byte() = System.Text.Encoding.Convert(System.Text.Encoding.UTF8, System.Text.Encoding.Default, tmpBy)
Dim URL As String = ""
For i As Long = 0 To newBy.Length - 1
URL = URL + "%" + Hex(newBy(i)).ToString.Trim
Next
'Return ("XXXXXXXXXXXXXXXXXXXXXXX" + URL.Trim)
Return (URL.Trim)
End Function