VB Code - Will be easy for anyone familiar with it

Im using VB Editor in Excel for an assignment.

I have to set code for current date, which I have behind the userform, this being:

txtdate = Date

That works fine...heres the bit I cant do.

In this project the person who buys the computer gets a 500 day guarantee, so I need to set a piece of code so it tells you in another text box, named txtExpiry to tell you the exact date of the guarantees expiry date.

Any takers?

Cheers.

 

Nevermind. Done it.

 

You should work for the government.

Code:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If IsDate(TextBox1.Text) Then
        TextBox2.Text = DateAdd( "d ", 500, TextBox1.Text)
    End If
    
End Sub