togliere 1 giorno ad una data

[BOYROMA1]

dovrei togliere 1 giorno ad una combo con tipo data

private sub command1_click()

Dim str As String

Combo4.Text = Date
str = Format(Date, "dddd,dd mmmm yyyy")
Combo4.Text = str

end sub

vorrei fare l'additem alla combo della stessa data di prima con 1 giorno in meno

potreste aiutarmi?:master:
please?