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