Visual Basic - Averiguar semana del año

Hola a todos, necesito una función que me devuelva el numero de semanas de un año en curso para pintarlas en un combobox y que dicho como tenga de valor por defecto la semana en curso.

Gracias a todos

Prueba con este código:
Dim i As Integer
Dim semanasAño As Integer, semanaActual As Integer
semanasAño = Format(DateSerial(Year(Now), 12 + 1, 0), "ww")
For i = i To semanasAño
Combo1.AddItem i
Next i
semanaActual = Format(Now, "ww")
Combo1.ListIndex = semanaActual
Sólo tienes que sustituir "Now" con tu fecha.
Saludos

Si quiero que me ponga la fecha del sistema , sabes como se pone?

Saludos

Eso ya lo averigue, y si el año tiene 54 semanas como puedo saberlo?

Un saludo y muchas gracias