Imports System

Public Module Module1

    Public Sub Main()

        dim ArrivalDay as string

        dim ArrivalTime, StayHours, Charge as integer

        dim Discount as boolean

        Console.WriteLine("Enter the day and time of arrival")

        ArrivalDay = Console.ReadLine()

        ArrivalTime = Console.ReadLine()

        do

            if ArrivalTime < 8 or ArrivalTime > 23

                Console.WriteLine("No parking allowed at the moment. Try again at another time.")

                ArrivalTime = Console.ReadLine()

            end if

        loop until ArrivalTime > 7 AND ArrivalTime < 24

        if ArrivalTime >= 16 and ArrivalTime < 24 then

            Console.WriteLine("You can stay till midnight")

            Console.WriteLine("Enter hours of stay")

            StayHours = Console.ReadLine()

            Charge = 2

        else if 

    End Sub

End Module