viewing paste David is gay | Text

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
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
Viewed 292 times, submitted by unknown.