Date changing to wrong month in code

Hi guys and girls

Having trouble with the following bit of code, where it correctly picks up that Tdate -3 = 02/08/19 (Tdate being 5/8/19) however, as the IF ends, it changes to 30/7/2019.

Happened Monday as well apparently (was out so did not see)

Screen shots of watch attached for you to see the changes

All help greatly rec'd as usual

TDate = Date

If Weekday(Date) = vbMonday Then


    TDate = TDate - 3
Else: TDate = TDate - 1
End If

Many thanks

tdate minus 3.PNGafter if.PNG

Sorry, had some help and found the user error