Retornar acento corretamente

[ersao 0]

Olá, estou com um problema! como faço para retornar a acentuação correta no exemplo abaixoJo%E3o+testeficar assim:João teste

[jrcardozo 4]

procure no fórum ou no google por urldecode, é uma função que corrige isso

[ersao 0]

Esta função corrige este problema!

 

Function URLDecode(sConvert)	Dim aSplit	Dim sOutput	Dim I	If IsNull(sConvert) Then	   URLDecode = ""	   Exit Function	End If		' convert all pluses to spaces	sOutput = REPLACE(sConvert, "+", " ")		' next convert %hexdigits to the character	aSplit = Split(sOutput, "%")		If IsArray(aSplit) Then	  sOutput = aSplit(0)	  For I = 0 to UBound(aSplit) - 1		sOutput = sOutput & _		  Chr("&H" & Left(aSplit(i + 1), 2)) &_		  Right(aSplit(i + 1), Len(aSplit(i + 1)) - 2)	  Next	End If		URLDecode = sOutputEnd Function