Sub

機能拡張をしました。
コードが詰まっていて読みづらいです。処理単位に空行を入れるか、メソッド分割を検討してみてください。