Heres a function I made. I pass on Now() bu you should be able to pass on what the user has entered.
I use it to always set the date to the following monday but you can modify it to your needs to see if it is the weekend or not.
Function SetMonDate(CurrentDate)
If VarType(CurrentDate) <>...