If-Then-Else help

Hejsa. Jeg skal have lavet et datotjek.

Hvis klokken er under 16 så er det den samme dato.
Hvis klokken er over 16 og dagen ikke er FREDAG LØRDAG SØNDAG så skal datoen være + 1.
Hvis klokken er over 16 og dagen er FREDAG så skal datoen være + 3 (Til mandag).
Hvis dagen er LØRDAG SØNDAG skal vi dato + X hen til Mandag...

Nogen der kan hjælpe mig med deN?

If (Time() > 16.00) then
  strDate = date() + 1
else
  strDate = date()
End if

Det er hvad jeg er kommet fremtil ind til videre, men ved ikke hvordan jeg laver resten :(