Module table
    Sub Main()
        Dim number As String
        Dim  cinnumber, answer As Integer
        number = Console.ReadLine()
        cinnumber = number
        answer = cinnumber Mod 2
        If answer = 0 Then
            Console.WriteLine("even ")
        Else
            Console.WriteLine("odd")
        End If

        Console.WriteLine("Press Enter to Close this window")
        number = Console.Read()
    End Sub
    'This Table program copied from bzupages
End Module