Decode URL's with ASP

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