Imports System

Public Module Module1

    Public Sub Main()

            Dim numero1 as Decimal

        Dim numero2 as Decimal

        Dim numero3 as Decimal

        Console.WriteLine("Ingresar el primer valor")

        numero1 = Console.ReadLine()

        Console.WriteLine("Ingresar el segundo valor")

        numero2 = Console.ReadLine()

        Console.WriteLine("Ingresar el tercer valor")

        numero3 = Console.ReadLine()

        Dim suma as Decimal

        Dim resta as Decimal

        Dim multiplicacion as decimal

        Dim division as decimal

        suma = numero1 + numero2 + numero3

        resta = numero1 - numero2 - numero3

        multiplicacion = numero1 * numero2 * numero3

        Console.WriteLine("La suma es igual a " & suma)

        Console.WriteLine("La resta es igual a " & resta)

        Console.WriteLine("La multiplicación es igual a " & multiplicacion)

        if numero3 = 0 or numero2 = 0 then

            Console.WriteLine("No se puede dividir por 0")

        else

            division = numero1 / numero2 / numero3

            Console.WriteLine("La división es igual a " & division)

        end if

    End Sub

End Module