Dim Dt as date
dt =  date.today

dt.adddays(-2) 'This code will subtract two days from the current date

msgbox dt

        Dim dt As Date
        Dim ts As TimeSpan

        dt = Date.Today
        dt = dt.Add(ts.FromDays(-2))
        msgbox dt