VBScriptで様々な処理をした後ログをはいているのですが、冗長になり悩んでいます。

考えてみたり調べてみたりしましたがいいヒントが見つかりませんでした・・・

上記に自分で作ってみたログファイル作成のプログラムで一部抜粋になりますがこういった構成です。
_Subプロシージャで処理成功時に呼び出し
＿＿フォルダ有り
＿＿＿＿ログ有り
＿＿＿＿ログ無い
＿＿フォルダ無い
＿＿＿＿ログ有り
＿＿＿＿ログ無い

_Subプロシージャで処理失敗時に呼び出し
＿＿フォルダ有り
＿＿＿＿ログ有り
＿＿＿＿ログ無い
＿＿フォルダ無い
＿＿＿＿ログ有り
＿＿＿＿ログ無い

これだけ長いと・・・・みっともないですよね

自分としては

・通常ログとエラーログを分けて出したい
・処理中に止まる可能性がある箇所がいくつかあるので処理が止まった時点でエラーメッセージを変えたい
・もっと簡潔にしたい

この３つがあります。
どなたかいいヒントをいただけないでしょうか？

それぞれの処理の中でログの作成処理もしているということですよね。

全体の処理の最初に通常ログとエラーログをオープンして、
（フォルダがあるとかないとか、既にログがあるとかないとかは、その処理の一環としてやる）
（全体の処理の後始末部分でクローズする）
それぞれの処理からは、それらがオープンされているという前提で書き出し処理のみすればいいんじゃないでしょうか。