Visual Basic - Fechas

Quisiera que alguien me explique como puedo calcular el numero de semana de una fecha.
ejemplo: hoy es 18/01/2003 la semana = 3
Muchas Gracias a todos aquello posibles colaboradores.

Dim Msj
Msj = "Semanas: " & DateDiff("s", "1/1/2003", Now)
MsgBox Msj

Espero que te sirva.

Un saludo