Dim uptrainseats() As Integer = {480,480,480,408}
Dim downtrainseats() As Integer = {480,480,480,660}
Dim uptraintimes() As String = {"(.00", "11.00","13.00","15.00"}
Dim downtraintimes() As String = {"(.10.00", "12.00","14.00","16.00"}
Dim Uptrainrevenue() As Integer
Dim downstairsRevenue() As Integer
Dim uptrainchoice As Integer = 0