Public Function GetStartEndDate(ByVal WeekNo As Integer) As String
Dim dt As New DateTime(DateTime.Now.Year, 1, 1)
Dim strStart As String
Dim strEnd As String
dt = dt.AddDays(((WeekNo - 1) * 7) - 1)
dt = dt.AddDays(dt.DayOfWeek.Monday - dt.DayOfWeek)
strStart = dt.ToShortDateString()
strEnd = dt.AddDays(7 - 1).ToShortDateString()
Return "Start: " & strStart & " End: " & strEnd
End Function