Adding one TextBox with weeks to text box with date to give final Date

Hi,

Im very new to this whole VBA thing and i have searched long and hard for this type of solution, perhaps it so simple that no one has bothered ever asking.

I have created a form whereby i am trying to automatically give an end date based on a commencement date and the value of another text box which will have number of weeks. The commencement date uses the monthview function to provide date in text box as follows:

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)

UserForm1.DesignCommence.Value = MonthView1.Value

Unload Me

End Sub

Activated by:

Private Sub DesignCommence_Enter()
Calendar.Show
End Sub

Any suggestions would be greatly appreciated