Function URLDecode(Expression)
 On Error Resume next
 Dim strSource, strTemp, strResult, strchr
 Dim lngPos, AddNum, IFKor

 strSource = Replace(Expression, "+", " ")
 For lngPos = 1 To Len(strSource)
     AddNum = 2
     strTemp = Mid(strSource, lngPos, 1)
     If strTemp = "%" Then
         If lngPos + AddNum < Len(strSource) + 1 Then
             strchr = CInt("&H" & Mid(strSource, lngPos + 1, AddNum))
             If strchr > 130 Then
                 AddNum = 5
                 IFKor = Mid(strSource, lngPos + 1, AddNum)
                 IFKor = Replace(IFKor, "%", "")
                 strchr = CInt("&H" & IFKor )
             End If
             strResult = strResult & Chr(strchr)
             lngPos = lngPos + AddNum
         End If
     Else
         strResult = strResult & strTemp
     End If
 Next
 URLDecode = strResult
End Function