Dim i as Integer
        Dim day as String
        Dim countOfLate as Integer = 0
        Dim busA = New Integer() {0, 0, 0, 2, 2, 4, 0, 3, 4, -2, -5, 0, 0, 3, 4, -1, 8, 1, 1, -2}
        Dim busB = New Integer() {0, 1, 0, 0, 1, 2, 0, 0, 0, 0, 1, 0, 0, 0, 2, 0, 0, 1, 0, 0}
        Dim busC = New Integer() {2, 0, -1, -1, -2, -2, -3, -1, 0, 0, -2, 0, 1, 1, 1, 1, -1, -1, 2, -2}
        Dim busD = New Integer() {1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0, 0, 0, 0, 0}
        Dim busE = New Integer() {-1, -1, -1, -2, -4, -10, -2, 0, 0, 0, 0, 1, 2, -3, 1, 3, 3, -1, 0, 0}
        Dim busF = New Integer() {0, -5, -5, -5, -4, -3, -5, 0, 0, 0, 0, -2, -3, 1, 1, 1, 0, 0, -2, -5}
        Dim days = New String() {"Mon1", "Tue1", "Wed1", "Thu1", "Fri1",
        "Mon2", "Tue2", "Wed2", "Thu2", "Fri2",
        "Mon3", "Tue3", "Wed3", "Thu3", "Fri3",
        "Mon4", "Tue4", "Wed4", "Thu4", "Fri4"}

        System.Console.WriteLine("Enter a specific day: ")
        day = Console.ReadLine()

        For i = 0 To 19
            If days(i) = day
                Exit For 'law za3lana mn exit momken a3'ayarha w nezawed variable tany w 5alas'
            End If
        Next

        While (i > 19)
            System.Console.WriteLine("Please enter a valid day: ")
            day = Console.ReadLine()
            For i = 0 To 19
            If days(i) = day
                Exit For
            End If
            Next
        End While

        If busA(i) < 0
            countOfLate = countOfLate + 1
            System.Console.WriteLine("Bus A was " & busA(i)*-1 & " minute(s) late.")
        End If
        If busB(i) < 0
            countOfLate = countOfLate + 1
            System.Console.WriteLine("Bus B was " & busB(i)*-1 & " minute(s) late.")
        End If
        If busC(i) < 0
            countOfLate = countOfLate + 1
            System.Console.WriteLine("Bus C was " & busC(i)*-1 & " minute(s) late.")
        End If
        If busD(i) < 0
            countOfLate = countOfLate + 1
            System.Console.WriteLine("Bus D was " & busD(i)*-1 & " minute(s) late.")
        End If
        If busE(i) < 0
            countOfLate = countOfLate + 1
            System.Console.WriteLine("Bus E was " & busE(i)*-1 & " minute(s) late.")
        End If
        If busF(i) < 0
            countOfLate = countOfLate + 1
            System.Console.WriteLine("Bus F was " & busF(i)*-1 & " minute(s) late.")
        End If

        System.Console.WriteLine("Number of late buses on " & day & ": " & countOfLate)