there may be a better way of doing this, but...
'cal1 is the Calendar control
Dim d As Date = CType("1/1/" & DateAndTime.Now.Year.ToString, Date)
Dim w As Long = DateDiff(DateInterval.WeekOfYear, d, cal1.SelectionStart.Date)
MessageBox.Show(w.ToString)
btw, this is week 27