Given any date, find the last date of the week in VB.net

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