Obtener día de la semana en palabras

Imports System.Globalization

Public Function getDayWord()
        Dim culture As New CultureInfo("es-CL")
        Dim diaSemana As String = culture.DateTimeFormat.GetDayName(DateTime.Today.DayOfWeek)
        diaSemana = Char.ToUpper(diaSemana(0)) & diaSemana.Substring(1)
        Return diaSemana
    End Function