VBスクリプトについて質問があります。日付関数で例えば関数で今月を取得し（例：2008年1月に実行したとして）200801という結果を得たとします。

もし出た結果が01の時2007_10-12という値を返すような方法はありますでしょうか？
条件としては四半期ごとにVBSでファイル名を作成するので作成のソースに埋め込むために値を出したいということになります。

★バッチで1，4，7，10月に実行する
実行したときに1月であれば前の年と前四半期の月を入れる
例として2008年1月に実行すると2007_10-12
2008年4月に実行すると2008_01-03
といった具合になります。
どんな風にコーディングしたらよいのでしょうか？

やり方は色々あるでしょうけど、一つにはこんな感じ

'exeDate:実行日付,result:結果文字列
Dim exeDate, result
exeDate=Date
Select Case DatePart("q", exeDate)
  Case 1  result=(year(exeDate)-1) & "_10-12"
  Case 2  result=year(exeDate)     & "_01-03"
  Case 3  result=year(exeDate)     & "_04-06"
  Case 4  result=year(exeDate)     & "_07-09"
End Select
'WScript.Echo result