1 2 3 4 5 6 7 8 9 10 11 12 13 | 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") txtFamily.Text = Familyname txtArrivalDate.Text = ArrivalDate txtNumberOfNights.Text = NumberOfNights |