VBAの変数入れたコードがエラーでうまくかけません

質問

ウェブクエリで　出走表をみるため、書いてるんですが、変数導入がうまくいきません。（取得するURLの最後の変数だけがうまくいきません😢）どう書けばいいでしょうか？

--------------------------------------------------------------------------
Dim i As String
'Dim R As String
'
i = Sheets("地方出馬表").Range("a1").Value '日の変数宣言。自分で、数字入力
R = Sheets("地方出馬表").Range("a2").Value '競馬場コード

ActiveWorkbook.Queries.Add Name:="Table 1", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " ソース = Web.Page(Web.Contents(""https://www.keiba.go.jp/KeibaWeb/TodayRaceInfo/RaceList?k_raceDate=2021%2f05%2f" & i & "&k_babaCode=21"")),以下両略～

--------------------------------------------------------------------------
上のURLの記述内の最後のほうの、　【&k_babaCode=21】この最後の数字は競馬場番号なので、変数を使います。

【~ & i & "&k_babaCode=21""】を　変数Rをいれるとすると、どう書けばいでしょうか？

自分では　下記のように書きましたが。。。。。
【～ & i & "&k_babaCode=" & R""】
【～ & i & "&k_babaCode=" & R　""】
など、空白をあけたり、いろいろしたのですが、コンパイルエラーとなります。

以上ですが、宜しくお願いします。

【補足】
元のURLは（地方競馬サイト）
https://www.keiba.go.jp/KeibaWeb/TodayRaceInfo/RaceList?k_raceDate=2021%2f05%2f25&k_babaCode=21
　　　　　　　　　　　　　　　　　　　　↑ここの数字を変数でうまくいきません。

回答No.1

kkkkkm · ベストアンサー

"""https://www.keiba.go.jp/KeibaWeb/TodayRaceInfo/RaceList?k_raceDate=2021%2f05%2f" & i & "&k_babaCode=" & r & """"
で試してみてください。

回答No.2

bardfish

URLをセルに記述し、そのセルの値を代入した変数を使用しては如何ですか？

試してないので動くかどうかはわかりません。

お礼

「文の最後」には　そのままでは、変数認識しないルールがあるようですね。　今回は、「空白を文の後に付け加える概念」で　解決できました。

シート側でも　できる方法が、ありかもしれません。
ありがとうございました。