Imports System

Public Module Module1

    Sub Menu 

        Dim ChoiceNum As Integer

        Console.Writeline("Enter 1 for addition, 2 for subtraction, 3 for multiplication, 4 for division and 5 to quit")

        ChoiceNum = Console.Readline()

        Select Case ChoiceNum

        Case 1

            Call Add

        Case 2

            Call Subt

        Case 3

            Call Mul

        Case 4

            Call Div

        Case 5

            Exit Sub

        End Select

    End Sub

    Sub Add 

            Console.Writeline("Addition is for adding one number to another number to find the sum.")

    End Sub

        Sub Subt

            Console.Writeline("Subtraction is to take away a number from another number to find the difference.")

        End Sub

        Sub Mul

            Console.Writeline("Multiplication is to multiply one number into another number to find the product.")

        End Sub

        Sub Div

            Console.Writeline("Division is to divide a number into another number to find the quotient.")

        End Sub

    Public Sub Main()

        Dim ChoiceYN As Integer

            Console.Writeline("Would you like to access the menu? Enter 1 for yes or 2 for no:")

        ChoiceYN = Console.Readline()

        If ChoiceYN = 1

            Call Menu

        End If

            Console.Readline()

    End Sub

​

End Module