Userform og textbox der går 7 dage frem og tilbage

Hej eksperter.

Har en userform man skal kunne gå 7 dage frem og 7 dage tilbage via. tryk på label. (en uge pr. tryk)

har denne her, men går ikke +7 dage eller -7 dage
(Den går 6 dage frem eller flere - eller omvendt)
samt med kun en gang.
vil gerne have den til af gå frem i datoen eller tilbage i datoen så længe man trykker på label.

textbox1 er aktuelle dato fra en celle.
når der bliver fundet den dato man vil have, bliver den overført til en celle i arket via. button.

Private Sub Label2_Click()
Application.ScreenUpdating = False
Me.TextBox1.Value = Date - 7
Application.ScreenUpdating = True
End Sub

Private Sub Label3_Click()
Application.ScreenUpdating = False
Me.TextBox1.Value = Date + 7
Application.ScreenUpdating = False
End Sub

tak på forhånd.