datum problem in userform

Private Sub UserForm_Initialize()
Dim tag As String
tag = Cells(3, 10).Value
CommandButton1.ControlTipText = Format(tag, "dddd, dd. mmmm yyyy")
End Sub

nun ist es ja so, das wenn ich mit der maus auf der userform auf den button1 bin, das datum angezeigt wird. nun möchte ich, wenn ich mit der maus auf der userform auf den button2 bin, das datum von einen tag später angezeigt bekommen. wer kann mir da helfen?

vielen dank für eure mühe

Gruss Bernd