= "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInpzInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536ut, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRetHex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0  & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ= "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ= "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ= "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ= "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ= "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ= "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ= "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'ΪFor x = 1 To Len(szInput)    wch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hexch = Mid(szInput, x, 1): nAsc = AscW(wch)    If nAsc < 0 Then nAsc = nAsc + 65536    If (nAsc And &HFF80) = 0 Then        szRet = szRet & wch    Else        If (nAsc And &HF000) = 0 Then            uch = "%" & Hex(((nAsc \ 2 ^ 6)) Or &HC0) & Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        Else            uch = "%" & Hex((nAsc \ 2 ^ 12) Or &HE0) & "%" & _            Hex((nAsc \ 2 ^ 6) And &H3F Or &H80) & "%" & _            Hex(nAsc And &H3F Or &H80)            szRet = szRet & uch        End If    End IfNextUTF8Encodetion UTF8EncodeURI(szInput) 'תUTF8Dim wch, uch, szRet, xDim nAsc, nAsc2, nAsc3If szInput = "" Then GBtoUTF8 = szInput: Exit Function 'Ϊ