利用VB制作一个IE浏览器，希望添加这样的一项

你需要一个转换函数转换成UTF-8

转换UrlEncode函数编码后的字符串为原字符串。
Public Function UniCodeToGb(ByVal ToDoString As String) As String
On Error Resume Next
Dim Dig As Integer: Dim GBStr As String
For Dig = 1 To Len(ToDoString)
If Mid(ToDoString, Dig, 1) = "%" Then
If Len(ToDoString) >= Dig + 8 Then
GBStr = GBStr & ConvChinese(Mid(ToDoString, Dig, 9))
Dig = Dig + 8
Else
GBStr = GBStr & Mid(ToDoString, Dig, 1)
End If
Else
GBStr = GBStr & Mid(ToDoString, Dig, 1)
End If
Next
UniCodeToGb = GBStr
End Function
'*******************************************************************
'Gb2312转为UTF-8的函数。
Public Function Ascii(ByVal ToDoString)
On Error Resume Next
If LCase(Chine