Kind of simplistic, but you can try something like this;
Private Function WeekOfYear(ByVal dt As Date) As Integer
Try
Return dt.DayOfYear / 7
Catch ex As Exception
MsgBox("There was a problem retreiving the week of the year!" & vbCrLf & ex.Message)
Return Nothing
End Try
End Function