Te puede servir la función Datediff.
Eso si, ¿qué criterios usas como número de semana: comienzo de año, diferencia con otra fecha...
Ejemplo de la función Datediff con semanas:
semana = DateDiff("ww", Now, mifecha)
Este indica la diferencias de semanas respecto a hoy.
Si la quieres respecto a primeros de año:
semana = DateDiff("ww", mifecha,cdate("01/01/2001"))
Espero que te sirva
;)