Imports System

Public Module Module1

    Public Sub Main()

        Dim Month As String

        Console.Writeline("Enter A Month Of The Year")

        Month = Console.ReadLine()

        Select Case Month

        Case 1

            Console.Writeline("This Month Has 31 Days")

        Case 2

            Console.Writeline("This Month Has 29 Days")

        Case 3

            Console.Writeline("This Month Has 31 Days")

        Case 4

            Console.Writeline("This Month Has 30 Days")

        Case 5

            Console.WriteLine("This Month Has 31 Days")

        Case 6

            Console.Writeline("This Month Has 30 Days")

        Case 7

            Console.Writeline("This Month Has 31 Days")

        Case 8 

            Console.Writeline("This Month Has 31 Days")

        Case 9

            Console.Writeline("This Month Has 30 Days")

        Case 10

            Console.Writeline("This Month Has 31 Days")

        Case 11

            Console.Writeline("This Month Has 30 Days")

        Case 12

            Console.Writeline("This Month Has 31 Days")

        End Select

    End Sub

End Module