Imports System

Public Module Module1

    Public Sub Main()

        dim answer as string 

        do 

            console.Writeline(" please inter two numbers of your choosing")

            dim num1 as integer = console.ReadLine()

            dim num2 as integer = console.ReadLine()

            console.WriteLine("please choose one of the following operations for your equation: A for addition, S for Subtraction, M for multiplication or D for division")

            dim operation as string = console.ReadLine()

            select case operation

        case "A"

            console.WriteLine("the result of the addition is " & num1+num2)

        case "S" 

            console.WriteLine("the result of the Subtraction is " & num1-num2)

        case "M" 

            console.WriteLine("the result of the multiplication is " & num1*num2)

        case "D"

            console.WriteLine("the result of the division is " & num1/num2)

        end select

            console.WriteLine("Do you want to proceed? Yes/No")

            answer = console.ReadLine()

        loop until answer = "No"

        console.WriteLine(" thank you for using this program")

    End Sub

End Module