function urlencode(byval str as string) as string
dim i as long
dim s as string
for i=1 to lenb(str)
if ascb(midb(str,i,1))>=48 and ascb(midb(str,i,1))<=122 then
s=s & strconv(midb(str,i,1),vbunicode)
else
s=s & "%" & cstr(ascb(midb(str,i,1)))
end if
next
end function