Imports System

Public Module Module1

    Public Sub Main()

        Dim intFirstNumber, intSecondNumber As Integer

        Dim strChoices, decAnswer As String

        Do

            Console.WriteLine("Welcome To My Calculator")

            Console.Writeline("Choose your operation")

            Console.Writeline("1. Addition")

            Console.Writeline("2. Subtraction")

            Console.Writeline("3. Multiplication")

            Console.Writeline("4. Division")

            Console.Writeline("Choose Your Operation")

            strChoices = Console.Readline()

            If strChoices = "1" Then

                Console.Writeline("Enter First Number")

                intFirstNumber = Console.Readline()

                Console.Writeline("Enter Second Number")

                intSecondNumber = Console.Readline()

                decAnswer = intFirstNumber + intSecondNumber

                Console.Writeline("The Answer Is: " & decAnswer)

                Console.Readline()

            End If      

            If strChoices = "2" Then

                Console.Writeline("Enter First Number")

                intFirstNumber = Console.Readline()

                Console.Writeline("Enter Second Number")

                IntSecondNumber = Console.Readline()

                decAnswer = intFirstNumber - intSecondNumber

                Console.Writeline("The Answer is: " & decAnswer)

                Console.Readline()

            End If

            If strChoices = "3" Then

                Console.Writeline("Enter First Number")

                intFirstNumber = Console.Readline()

                Console.Writeline("Enter Second Number")

                intSecondNumber = Console.Readline()

                decAnswer = intFirstNumber * intSecondNumber

                Console.Writeline("The Answer is: " & decAnswer)

                Console.Readline()

            End If 

                If strChoices = "4" Then

                Console.Writeline("Enter First Number")

                intFirstNumber = Console.Readline()

                Console.Writeline("Enter Second Number")

                intSecondNumber = Console.Readline()

                decAnswer = intFirstNumber / intSecondNumber

                Console.Writeline("The Answer is: " & decAnswer)

                Console.Readline()

            End If 

            Console.Writeline("Another Calculation? (Y/N)")

            strChoices = Console.Readline()

        Loop While strChoices = "Y" 

        End Sub

End Module