Mine

Dim num1 As Decimal
        Dim num2 As Decimal
        Dim cal As Integer
        Dim tot As Decimal
        Dim Exi As Integer
        Dim que1 As Integer
        Exi = 1
        que1 = 0
        Console.WriteLine("¡BIENVENIDO A MI CALCULADOR!")
        Console.WriteLine("A continuación ingrese el primer numero")
        While Exi = 1
            Console.WriteLine("Ingrese el valor deseado ahora")
            num1 = Console.ReadLine()
            Console.Clear()
            Console.WriteLine("Ahora marque la operación que desea realizar")
            Console.WriteLine("Para suma utilice +, para resta utilice -, para multiplicar utilice * y para dividir utilice /")
            cal = Console.ReadLine()
            Console.Clear()
            Console.WriteLine("Ahora ingrese el ultimo numero")
            num2 = Console.ReadLine()
            If cal = "+" Then
                tot = num1 + num2
            Else
                If cal = "-" Then
                    tot = num1 - num2
                Else
                    If cal = "*" Then
                        tot = num1 * num2
                    Else
                        tot = num1 / num2
                    End If
                End If
            End If
            Console.Clear()
            Console.WriteLine("Su resultado es: ")
            Console.WriteLine(tot)
            Console.ReadLine()
            Console.Clear()
            While que1 = 0
                Console.WriteLine("Para realizar otra operación, ingrese 1, para salir ingrese el 2")
                Exi = Console.ReadLine()
                If Exi = 1 Then
                    Exi = 1
                    que1 = 1
                Else
                    If Exi = 2 Then
                        Exi = 2
                        que1 = 1
                    Else
                        Console.WriteLine(":::::::::::::::::::::::::::::::::::::::::::::")
                        Console.WriteLine("ATENCIÓN, INGRESE UNA INSTRUCCIÓN VÁLIDA")
                        Console.WriteLine(":::::::::::::::::::::::::::::::::::::::::::::")
                        que1 = 0
                    End If
                End If
                Console.Clear()
            End While
        End While
        Console.WriteLine("Presione una tecla para salir")
        Console.ReadLine()