Public Shared Function DecodeURL(ByVal url As String) As String 
    'Return if there are no special characters 

    If url.LastIndexOf("%"c) = -1 Then Return url 
    'Integer to hold character index 

    Dim index As Integer 
    'String to hold Hexidecimal character code 

    Dim hexCharacter As String 
    Do 
      index = url.IndexOf("%"c) 
      'Return if there are no more special characters 

      If index = -1 Then Return url 
      'The two characters after the '%' in a URL is the hexidecimal 

      'ISO 8859 character code 

      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