UnEscape()

Decodifica uma string de URL

Function UnEscape(ByVal Str)    
    Dim i, Nova, h, j, c, ln    
    For i = 1 To 255
        h = Hex(i)
        If Len(h) = 1 Then h = "0" & h
        h = "%" & h
        Str = eregi_replace(h, Chr(i), Str)
    Next    
    UnEscape = Str    
End Function