Calcular semana del año a partir de una fecha

[AlvaroHM]

Existe una funcion DatePart, no recuerdo muy bien como se utiliza, segun recuerdo puedes usarla así:

Dim Fecha As Date
Dim Mensaje

Fecha = InputBox("Introduce Fecha: ")
Msg = "Semana: " & DatePart("ww", Fecha)
MsgBox Msg

Tambien le puedes pasar otros parámetros en lugar del "ww" para que te regrese otros datos como el año, mes, día... etc. este caso funciona para regresar la semana a la que pertenece la fecha...