how to create calculator in vb net

Module Module1

    Sub Main()
        Dim number1, number2, Sum, subtraction, multi As Integer
        Dim divide As Single

        Dim choice As String
        Do
            Console.WriteLine("-------------------------------------------------------------------------------")
            Console.WriteLine()
            Console.WriteLine("                      1 For Sum ")
            Console.WriteLine("                      2 For subtraction ")
            Console.WriteLine("                      3 for multiplication")
            Console.WriteLine("                      4 for divide")
            Console.WriteLine("                      0 for close")
            Console.WriteLine("-------------------------------------------------------------------------------")
            Console.WriteLine()
            Console.WriteLine("Enter Your choice ")
            choice = Console.ReadLine()
            Select Case choice
                Case "1"
                    Console.WriteLine("Enter Number One")
                    number1 = Console.ReadLine()
                    '  Console.WriteLine(number1)
                    Console.WriteLine("Enter number Two ")
                    number2 = Console.ReadLine()
                    ' Console.WriteLine(number2)
                    Sum = number1 + number2

                    Console.Write("Sum of two integers is = ")

                    Console.WriteLine(Sum)
                Case "2"


                    Console.WriteLine("Enter Number One")
                    number1 = Console.ReadLine()
                    '  Console.WriteLine(number1)
                    Console.WriteLine("Enter number Two ")
                    number2 = Console.ReadLine()
                    ' Console.WriteLine(number2)
                    subtraction = number1 - number2

                    Console.Write("Sum of two integers is = ")

                    Console.WriteLine(subtraction)
                Case "3"
                    Console.WriteLine("Enter Number One")
                    number1 = Console.ReadLine()
                    '  Console.WriteLine(number1)
                    Console.WriteLine("Enter number Two ")
                    number2 = Console.ReadLine()
                    ' Console.WriteLine(number2)
                    multi = number1 * number2

                    Console.Write("Sum of two integers is = ")

                    Console.WriteLine(multi)

                Case "4"
                    Console.WriteLine("Enter Number One")
                    number1 = Console.ReadLine()
                    '  Console.WriteLine(number1)
                    Console.WriteLine("Enter number Two ")
                    number2 = Console.ReadLine()
                    ' Console.WriteLine(number2)
                    divide = number1 / number2

                    Console.Write("Sum of two integers is = ")

                    Console.WriteLine(divide)
            End Select
            If choice = "0" Then
                Exit Do

            End If
        Loop
        Console.Read()
    End Sub

End Module