>>747
値を返す関数　　→Ｆｕｎｃｔｉｏｎ
値を返さない関数→Ｓｕｂ
どうしてもＳｕｂしか厭なら、ByRef 引数にでもしろ。