Quiero que cuando se ejecute la macro en una celda aparezca un texto determinado

Hola OCTAVOHOKAGE, espero puedas ayudarme con lo siguiente:
Tengo un macro en la que en la celda B8 tengo la fecha del día
Range("B8").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
Hasta aquí todo bien.
Lo que quiero es que cuando ejecute la macro en la celda A6 aparezca un texto determinado, dependiendo de si el día de la semana es Sábado o si es otro día cualquiera de la semana.
El código que tengo puesto es el siguiente:
Range("A6").Select
    ActiveCell.FormulaR1C1 = _
        "LOS CAMBIOS VIGENTES HASTA LAS 16:00 H SON:"
    Selection.Font.Size = 16
    Selection.Font.Bold = True
    Selection.Font.ColorIndex = 3
    Selection.Font.Underline = xlUnderlineStyleSingle
    If Range("B8").Value = Saturday Then
        Range("A6").Value = "LOS CAMBIOS VIGENTES HASTA LAS 16:00 H DEL LUNES SON:"
    Else
        Range("A6").Value = "LOS CAMBIOS VIGENTES HASTA LAS 16:00 H SON:"
    End If
Pero no funciona bien siempre sale el primer texto; como puedo hacer referencia al día de la semana, ¿no debo poner Saturday?, ¿Debo poner algún número que haga referencia al día de la semana?.
Te agradecería me pudieras ayudar, muchas gracias de antemano