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

	Function BytesToBstr(vIn)
		strReturn = ""
		For i = 1 To LenB(vIn)
			ThisCharCode = AscB(MidB(vIn,i,1))
			If ThisCharCode < &H80 Then
				strReturn = strReturn & Chr(ThisCharCode)
			Else
				NextCharCode = AscB(MidB(vIn,i+1,1))
				strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
				i = i + 1
			End If
		Next
		BytesToBstr = strReturn
	End Function