Public Shared Function DecodeURL(ByVal url As String) As String
If url.LastIndexOf("%"c) = -1 Then Return url
Dim index As Integer
Dim hexCharacter As String
Do
index = url.IndexOf("%"c)
If index = -1 Then Return url
hexCharacter = "&" & url.Substring(index + 1, 2)
hexCharacter = Encoding.GetEncoding("ISO-8859-1").GetString(New _
Byte() {CByte(hexCharacter)})
url = url.Replace("%" & url.Substring(index + 1, 2), hexCharacter)
Loop
End Function