Cambiar texto en celda en función del día de la semana

Hola, espero puedas ayudarme con lo siguiente:
Tengo puesto en la celda B1 la fecha de hoy sin hora.
Range("B1").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
Y lo que quiero es que cuando ejecute la macro en la celda B6 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:
If "=TODAY()" = Saturday Then
    Range("B6").Select
    ActiveCell.FormulaR1C1 = _
        "LOS CAMBIOS VIGENTES HASTA LAS 16:00 H DEL LUNES ____/____ SON:"
    Else
    Range("B6").Select
    ActiveCell.FormulaR1C1 = _
        "LOS CAMBIOS VIGENTES HASTA LAS 16:00 H SON:"
End If
Es correcto este código o debería poner If Range("B1") = Saturday then. Etc.
Muchas gracias de antemano