Module Module1

    Sub Main()

        Dim valueOne As Integer
        Dim valueTwo As Integer
        'A const variable to hold the value that each number will be 
        'multiplied by
        Const multiplyer As Integer = 12

        Try
            Console.WriteLine("Please enter a number between 1 and 12")
            valueOne = Integer.Parse(Console.ReadLine())

            'Use And operator to determine whether the number entered 
            'by the user is between 1 and 12
            If (valueOne > 0 And valueOne < 13) Then
                valueTwo = valueOne * multiplyer
                Console.WriteLine("{0} x {1} = {2}", valueOne, multiplyer, valueTwo)
            Else
                Console.WriteLine("You didn't enter a number between 1 and 12")
            End If

            'Handle the exception generated by wrongly formatted user input
        Catch ex As System.FormatException
            Console.WriteLine("You didn't enter a Whole Number!")
        End Try

        Console.WriteLine(vbCrLf + "Please Press any Key to Exit")
        System.Console.ReadKey()

    End Sub

End Module