guarda io oh usta il DateAdd e ho fatto un ciclo...
per 20....in modo che hai 20 mercoledì....
cmq se parametrizzi anche il ciclo..ti tira fuori le date che vuoi con il DateAdd
dove "d" sta per gg..e 7 è il numero di gg..quindi ogni 7 giorni...
spero esserti stato utile..ciao

codice:
Dim sData As String, i As Integer
sData = "22/11/2007"
For i = 1 To 20

MsgBox DateAdd("d", 7, sData)
sData = DateAdd("d", 7, sData)
Next