VB Scriptに詳しい方がいらっしゃいましたらお尋ねします。日付関数で取得したもの...

VB Scriptに詳しい方がいらっしゃいましたらお尋ねします。日付関数で取得したものをソースに含めることは可能でしょうか？

日付計算をして出したもの（yyyymm)★印と★印の間に代入したいのですがうまく出来ません
初歩の初歩かもしれませんがやり方かまちがっていますでしょうか？
教えて下さい お願いします。


Dim oLogQuery
Dim oEVTInputFormat
Dim oCSVOutputFormat
Dim strQuery
Dim b
Dim yyyymm
b=DateAdd("M",-1,Now)
yyyymm=Year(b)*100+Month(b)

Set oLogQuery = CreateObject("MSUtil.LogQuery")

' 入力形式オブジェクトを作成します。
Set oEVTInputFormat = CreateObject("MSUtil.LogQuery.EventLogInputFormat")
oEVTInputFormat.direction = "BW"

' 出力形式オブジェクトを作成します。
Set oCSVOutputFormat = CreateObject("MSUtil.LogQuery.CSVOutputFormat")
oCSVOutputFormat.tabs = TRUE

' クエリ テキストを作成します。
strQuery = "SELECT TimeGenerated, EventID INTO C:\output%★yyyymm★%.csv FROM System"
strQuery = strQuery & " WHERE SourceName = 'Application Popup'"

' クエリを実行します。
oLogQuery.ExecuteBatch strQuery, oEVTInputFormat, oCSVOutputFormat

mr_r00　さん、こんxxは。ひよこ画伯やす　です。

調度、私もVBAはじめたところです。お互い、頑張っていきましょう。

今、古いVBA環境であることや、私自身、VBAの知識もそんなにないため、オブジェクト周りの関数の整合性がつかないのですがやりたいことは、

yyyymm

の数値を用いて

C:\output%★yyyymm★%.csv

の文字列を作りたいということでいいですよね。
色々手法はあると思いますが、以下の方法ではいかがですか。

Sub test()

Dim b
Dim yyyym

Dim Path, YM As String

b = DateAdd("M", -1, Now)
yyyymm = Year(b) * 100 + Month(b)

YM = yyyymm
Path = "C:\output\" + YM + ".csv"

MsgBox "Pathは" & Path & "です"

End Sub

では、失礼します。

文字列に変数(yyyymm)の内容を埋め込むのに
"STRINGS yyyymm OTHER_STIRNGS"
の様にはできません。
str="STRINGS " & yyyymm & " OTHER_STIRNGS"
のように＆でつなぐ必要があります。