Private Sub Command1_Click()
Dim mebership As Integer
Dim membershiptype As String

membership = 2.5
Guestticket = 0.5


age = InputBox("Please input your age!")
If age < 10 Then MsgBox age & " Not a valid age"
If age > 18 Then MsgBox age & " Not a valid age"
If age = 10 Then membershiptype = ("Junior Membership")
If age = 11 Then membershiptype = ("Junior Membership")
If age = 12 Then membershiptype = ("Junior Membership")
If age = 13 Then membershiptype = ("Intermediate Membership")
If age = 14 Then membershiptype = ("Intermediate Membership")
If age = 15 Then membershiptype = ("Intermediate Membership")
If age = 16 Then membershiptype = ("Senior Membership")
If age = 17 Then membershiptype = ("Senior Membership")
If age = 18 Then membershiptype = ("Senior Membership")
nooftickets = InputBox("Please enter the number of tickets required")
If nooftickets > 2 Then MsgBox ("That is not a valid amount")
totalcost = membership * nooftickets
MsgBox (totalcost)
lbldisplay = "You have a " & membershiptype & ". You have requested " & nooftickets & " tickets"
End Sub