¿Cómo escribir codificación URLEncode en vb?

"Nosotros" se convierte a "%CE%D2%C3%C7", que es codificación asc.

"%E6%88%91%E4%BB%AC" es Codificación UTF-8 de "nosotros".

Utilice esta función para obtener codificación UTF-8

Función GBtoUTF8(szInput)

Dim wch, uch, szRet

Dim x

Dim nAsc, nAsc2, nAsc3

'Si el parámetro de entrada es nulo, salga de la función

Si szInput = "" Entonces

GBtoUTF8 = szInput

Salir de la función

Finalizar si

'Iniciar conversión

For x = 1 To Len(szInput)

wch = Mid(szInput, x, 1)

nAsc = AscW(wch)

Si nAsc < 0 entonces nAsc = nAsc + 65536

Si (nAsc y &HFF80) = 0 Entonces

szRet = szRet &wch

De lo contrario

Si (nAsc y &HF000) = 0 Entonces

uch = "%" & Hex(((nAsc \ 2 ^ 6)) O &HC0) & Hex(nAsc Y & H3F O &H80)

szRet = szRet & uch

Else

uch = "%" & Hex((nAsc \ 2 ^ 12) O &HE0) &"%" & _

Hex((nAsc \ 2 ^ 6) Y &H3F O &H3F O &H80) & "%" & _

Hex(nAsc Y &H3F O &H80)

szRet = szRet & uch

Finalizar si

Finalizar si

Siguiente

GBtoUTF8 = szRet

Finalizar función