VBscriptを使い日付関数で取得した値の中から一部の文字列を抜き出したいのですがうまくいかないのでどなたか間違いの箇所を指摘していただけないでしょうか？

’先月を返します。
Dim b
Dim yyyymm
b=DateAdd("M",-1,Now)
yyyymm=Year(b)*100+Month(b)

’先月の表示を変更します。
Dim lastmonth
Dim strVal
strVal = "yyyymm"
lastmonth = Right(strVal, 4)

Dim oLogQuery
Dim strQuery

Set oLogQuery = CreateObject("MSUtil.LogQuery")

' クエリ テキストを作成します。
strQuery = "SELECT cs-uri-stem,COUNT(*) AS view INTO View.csv FROM C:\test1\ex"&★lastmonth★&".log"
strQuery = strQuery & " WHERE cs-uri-stem IN('/Default.htm';'/images/address.gif') GROUP BY cs-uri-stem ORDER BY COUNT(*) DESC"

' クエリを実行します。
oLogQuery.ExecuteBatch strQuery
※先月を返しますというところで2008年2月に実行したら200801という表示になると思います。（もし、1月に実行したら200712になりますよね？）200801の右から4文字を取り出し0801という文字列を作り★印の間に入れたいのですがうまくいきません。
また3か月分（四半期？）もやりたいのですがヒントがあったら教えて下さい。

>strVal = "yyyymm"
が間違い

strVal = CStr(yyyymm)

とするか
もしくは、直接

lastmonth = Right(yyyymm, 4)

とする