Imports System

Public Module Module1

    Public Sub Main()

        Dim m1 as integer

        Console.WriteLine("Escriba el número del mes en que estamos: (1-12)")

        m1 = cint(Console.ReadLine())

        Select case m1

        case 1

            Console.WriteLine("Estamos en Enero")

        case 2

            Console.WriteLine("Estamos en Febrero")

        case 3  

            Console.WriteLine("Estamos en Marzo")

        case 4

            Console.WriteLine("Estamos en Abril")

        case 5

            Console.WriteLine("Estamos en Mayo")

        case 6

            Console.WriteLine("Estamos en Junio")

        case 7

            Console.WriteLine("Estamos en Julio")

        case 8

            Console.WriteLine("Estamos en Agosto")

        case 9

            Console.WriteLine("Estamos en Septiembre")

        case 10

            Console.WriteLine("Estamos en Octubre")

        case 11

            Console.WriteLine("Estamos en Noviembre")

        case 12

            Console.WriteLine("Estamos en Diciembre")

        End Select 

    End Sub

End Module