Visual Basic - Como Obtengo el día de la semana(Lunes, Martes...)

Dim x as Integer

Dim Dia(1 to 7) as String

Dia(1) = "Domingo"

Dia(2) = "Lunes"

Dia(3) = "Martes"

Dia(4) = "Miercoles"

Dia(5) = "Jueves"

Dia(6) = "Viernes"

Dia(7) = "Sabado"

x = Weekday(Date)

Private Sub T_CalMes_DateChanged(sender As Object, e As DateRangeEventArgs) Handles T_CalendarioMes.DateChanged

    'en base a un control MonthCalendar, esta es su funcion DateChanged y obtenes en cada textbox el dia clikeado, el orden de dia en la semana

    'el primer dia de la semana y el ultimo

    Dim XOrdenEnSemana As Integer

    Dim XPrimerDiaSemana As Date

    Dim XUltimoDiaSemana As Date

    Dim XDia As Date

    TextBox1.Text = T_CalendarioMes.SelectionRange.Start.ToShortDateString()

    XDia = CDate(TextBox1.Text)

    XOrdenEnSemana = XDia.DayOfWeek

    TextBox2.Text = XOrdenEnSemana

    If XOrdenEnSemana = 0 Then

        '0 es domingo, le resto 7 directamente

        XPrimerDiaSemana = XDia.AddDays(-6)

    Else

        XPrimerDiaSemana = XDia.AddDays(-XOrdenEnSemana)

        XPrimerDiaSemana = XPrimerDiaSemana.AddDays(1)

    End If

    XUltimoDiaSemana = XPrimerDiaSemana.AddDays(6)

    TextBox3.Text = Format(XPrimerDiaSemana, "dddd dd MMMM yyyy ")

    TextBox4.Text = Format(XUltimoDiaSemana, "dddd dd MMMM yyyy ")

End Sub