Dim ArrivalDate As Date
Dim Familyname As String
Dim NumberOfNights As String
Familyname = InputBox("Please enter familyname")
ArrivalDate = InputBox("Please enter your date of arrival")
NumberOfNights = InputBox("Please enter the number of nights you will be staying")
If NumberOfNights <= 0 Then MsgBox "You can only stay between 1 - 14 nights please try again"
If NumberOfNights >= 15 Then MsgBox "You can only stay between 1 - 14 nights please try again"
txtFamily.Text = Familyname
txtArrivalDate.Text = ArrivalDate
txtNumberOfNights.Text = NumberOfNights