日本語をURLエンコードする関数ってつくれますか？

たとえば

str=Encode("日本語");
とすれば
%93%FA%96%7B%8C%EAがstrに代入される