EXCEL VBAコミュの質問ですが

いつもお世話になっております
少し判りにくいかもしれませんが
webクエリで情報を取得するマクロを作ったのですが

Sub テスト2()

Const csCode As String = "URL;https://umanity.jp/racedata/race_7.php?code=XXXX"
Dim strURL As String

strURL = Get開催コード生成
strURL = Replace(csCode, "XXXX", strURL)
Set出馬表取得 strURL

Dim 処理前シート As Worksheet
Dim 処理後シート As Worksheet
Dim 元データ As Range
Dim ws As Worksheet
Set ws = ActiveSheet
Set 処理前シート = ActiveSheet
Set 処理後シート = Worksheets("テスト")
Set 元データ = 処理前シート.UsedRange

Function Get開催コード生成() As String

Dim Y As String '年
Dim D As String '日付
Dim c As String '回
Dim A As String '場所
Dim T As String '日目
Dim r As String 'レース番号

With ThisWorkbook.ActiveSheet
Y = Format(.Range("A2").Value, "0000")
D = Format(.Range("B2").Value, "0000")
A = Get場所コード(.Range("C2").Value)
c = Format(.Range("D2").Value, "00")
T = Format(.Range("E2").Value, "00")
r = Format(.Range("F2").Value, "00")
End With

Get開催コード生成 = Y & D & A & c & T & r
End Function
最後のRの部分の数字
例https://umanity.jp/racedata/race_7.php?code=2019042103010610の最後の１０のところが指定した数値だけ増えていって取得できるようにしたいのですができますか
例えば指定した数値が３ならば
https://umanity.jp/racedata/race_7.php?code=2019042103010610
https://umanity.jp/racedata/race_7.php?code=2019042103010611
https://umanity.jp/racedata/race_7.php?code=2019042103010612
みたいにできたらとおもっています
なお数値の指定についてはG2でできたたらと思っています
わかりにくくすいませんがよろしくおねがいします