Tipo de Trianguló

Module Module1
    Dim L1 As Integer
    Dim L2 As Integer
    Dim L3 As Integer
    Dim TT As Integer
    Sub Main()
        Console.WriteLine(" Ingrese Primer Lado")
        L1 = Console.ReadLine()
        Console.WriteLine("Ingrese Segundo Lado")
        L2 = Console.ReadLine()
        Console.WriteLine("Ingrese Tercer Lado")
        L3 = Console.ReadLine()
        If (L1 <> L2) And (L2 <> L3) And (L3 <> L1) Then
            Console.WriteLine(" Escaleno")
            Console.ReadLine()
        Else
            If (L1 = L2) And (L2 = L3) Then
                Console.WriteLine(" Equilátero")
                Console.ReadLine()
            Else
                Console.WriteLine("Isósceles")
                Console.ReadLine()

            End If

        End If

    End Sub

End Module