Imports System

Public Module Module1

    Public Sub Main()

        dim a as integer

        Console.WriteLine("Select a number 1-12")

        a = console.readline()

        select case

    End Sub

End Module