'Nombre del día de la semana
Private Sub Form_Load()
    'Primer modo de extraer el nombre del
    'día de la semana
    MsgBox WeekdayName(5, False)
    MsgBox WeekdayName(5, True)
    'Segundo modo de extraer el nombre del
    'día de la semana
    MsgBox WeekdayName(Weekday(#1/29/2012#), False)
    MsgBox WeekdayName(Weekday(#1/29/2012#), True)
    'Tercer modo: Nombre del día actual de la semana
    MsgBox WeekdayName(Weekday(Date), False)
    MsgBox WeekdayName(Weekday(Date), True)
    'Saber si es fin de semana
    If (Weekday(Now) = vbSaturday) Or (Weekday(Now) = vbSunday) Then
        MsgBox "Ya es fin de semana "
    Else
        MsgBox "Todavía no es fin de semana!"
    End If
End Sub

'Constantes     Valor       Descripción
'vbUseSystem    0
'vbSunday       1           Por defecto: Domingo
'vbMonday       2           Lunes
'vbTuesday      3           Martes
'vbWednesday    4           Miércoles
'vbThursday     5           Jueves
'vbFriday       6           Viernes
'vbSaturday     7           Sábado