Private Function urlDecode(aStr) strSub = "%" aStr = Replace(aStr, "+", " ") I = InStr(strA, strSub) While I >0 aStr = left(aStr,I-1) & chr("&H" & mid(aStr,I+1,2)) & mid(aStr,I+3) I = InStr(strA, strSub) WEnd urlDecode = aStr End Function