Function GetFormatedUrl(ByVal sUrl As String) As String
GetFormatedUrl = vbNullString
Dim i As Integer, sValue As String
For i = 1 To Len(sUrl)
sValue = Mid$(sUrl, i, 1)
If sValue = "%" Then
GetFormatedUrl = GetFormatedUrl & Chr$(Val("&H" & Mid$(sUrl, i + 1, 2)))
i = i + 2
Else
GetFormatedUrl = GetFormatedUrl & sValue
End If
Next i
End Function