TextBox Value (based on calc)

[gheyman]

I have two textboxes on a form. One has a Date the other has a number. In a third textbox (textbox20) I want a date based on what's in Textbox17 plus the number that's in textbox18
Note that the user can change the value in textbox18

Textbox20 should show as a date

Example: Now() + 14

Private Sub UserForm_Initialize()
'Message
TextBox7 = Sheet14.Range("D2").Value
TextBox17 = Format(Now(), "dd-mmm-yyyy")
TextBox18.Text = "14"
TextBox19.Text = "180"
End Sub

THANK YOU!

 

[gheyman]

Got it

TextBox20 = Format(Now() + TextBox18, "dddd, dd-mmm-yyyy")