Imports System

Public Module Module1

    Public Sub Main()

​

        dim days as integer

        dim holiday as integer

        Console.WriteLine("How many days a week do you work?" )

        days = Console.ReadLine()

        holiday = (days *(28/5))

        if (days > 5)

                Console.WriteLine("Not a valid number")

        elseif (0 <= days <= 5)

            Console.WriteLine("You have "& holiday &" days of holiday")

        end if

    End Sub

End Module