Given a date like "9/23/2016", find the last date of the week. The below code will do so
Imports System.Globalization
Namespace ConsoleApplication2
Class Program
Private Shared Sub Main(args As String())
Dim initialDate = Convert.ToDateTime("9/23/2016")
Dim lastDayOfWeek = initialDate.AddDays(CultureInfo.CurrentCulture.DateTimeFormat.FirstDayOfWeek - initialDate.DayOfWeek).AddDays(6)
Console.ReadKey()
End Sub
End Class
End Namespace