Function VBS_UrlEncode(str)
	Dim strReturn, i, ThisChr, innerCode, Hight8, Low8
	strReturn = ""
	For i = 1 To Len(str)
		ThisChr = Mid(str,i,1)
		innerCode = Asc(ThisChr)
		If innerCode < 0 Then
			innerCode = innerCode + &H10000
		End If
		Hight8 = ( innerCode And &HFF00 ) \ &HFF
		Low8 = innerCode And &HFF
		If Abs(Asc(ThisChr)) <= &H0F Then
			strReturn = strReturn & "%0" & Hex(Low8)
		ElseIF Abs(Asc(ThisChr)) <= &HFF Then
			strReturn = strReturn & "%" & Hex(Low8)
		Else
			strReturn = strReturn & "%" & Hex(Hight8) &  "%" & Hex(Low8)
		End If
	Next
	VBS_UrlEncode = strReturn
End Function