Module table
    Sub Main()
        Dim number As String
        Dim multiplier, cinnumber, answer As Integer
        number = Console.ReadLine()
        cinnumber = number
        multiplier = 0
        While multiplier < 10
            multiplier = multiplier + 1
            answer = cinnumber * multiplier
            Console.WriteLine("{0} * {1} = {2} ", cinnumber, multiplier, answer)

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