Imports System

Public Module Module1

    Public Sub Main()

        Dim grado1 as Decimal

        Dim grado2 as Decimal

        Dim grado3 as Decimal

        Console.WriteLine("Ingrese el valor de grado1")

        grado1 = Console.Readline()

        Console.WriteLine("Ingrese el valor de grado2")

        grado2 = Console.Readline()

        Console.WriteLine("Ingrese el valor de grado2")

        grado3 = Console.Readline()

        If grado1=grado2 AND lado1=lado3 then 

            console.WriteLine("")

        end If

end sub

End Module 

​