Visual Basic.NET - Conocer la semana sabiendo fecha

Buenas.

pues eso alguien sabe si existe alguna función en visual studio que me devuelva el número de la semana pasandole una fecha??

ej:

Si le paso 01/01/10 me devuelva 1
si le paso 06/01/10 me devuelva 2

Es urgente así que si cualquiera lo ha probado alguna vez y no hay solución excepto que me lo haga yo mismo por favor decirmelo.

Gracias

dia = Format(DateTimePicker1.Value, "dd/MM/yyyy")

Dim semana As Integer = DatePart(DateInterval.WeekOfYear, dia)

MsgBox("SEMANA DEL AÑO " & semana)

Muchas gracias lo probare