Esta función modifica los caracteres del iso-8859-1 extendido, ñ, á, etc. A un formato válido de URL con código UNICODE preparado para peticiones URL.

Public Function stringToUnicod(ByVal myString As String) As String
Dim longitud As Integer
Dim i As Integer
Dim nAscii As Integer
Dim result As String
Dim caracter As String
result = “”
longitud = Len(myString)
For i = 1 To longitud
caracter = Mid(myString, i, 1)
nAscii = AscW(caracter)
If nAscii > 159 Then
result = result & “%” & Hex(nAscii)
Else
result = result & caracter
End If
Next i
stringToUnicod = result

End Function

Es decir, esta función convierte MONDOÑEDO en MONDO%F1EDO, para que un servidor web lo acepte.

Código por: Jose Pazos