サブルーチンをプロシージャに独立させてしまい、callで呼び出す方法
(サブルーチンで共通処理だけさせる)
--------------------------------
Sub......
 
 ...............
 Call A
 ..............

End Sub
-----------------
Sub A
 
 ..............

End Sub