[CODE]Function URLDecode(Expression) 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 130 Then AddNum = 5 IFKor = Mid(str..