Como saber el día de la semana en Visual Basic .Net

Un pequeño código para calcular el número de semana qen la que nos encontramos. En este caso, la primera semana del més es la primera. Aquí tenéis el código en visual basic .net:

       Dim dt As New DateTime
       dt = Now
       Dim weeknumber As Integer = CInt(dt.DayOfYear / 7)
       MsgBox(weeknumber)