Možno narysovať trojuholník?

Sub Main()
    While True 'Budeme vyzívat uživatele k zadání hodnot, tak dlouho, dokud bude chtít. Však tam má červený křížek.
        Try
            Console.Write("Zadejte stranu A: ")
            Dim A As Integer = Console.ReadLine() 'strana A

            Console.Write("Zadejte stranu B: ")
            Dim B As Integer = Console.ReadLine() 'strana B

            Console.Write("Zadejte stranu C: ")
            Dim C As Integer = Console.ReadLine() 'strana C

            'Všiměnte si podmínky níže, pokud podmínka platí dosadí se True, pokud ne Tak False
            Dim lzeNarysovat As Boolean = (A + B > C And B + C > A And C + A > B) 'Pokud to vše platí, trojúhelník lze narýsovat

            If lzeNarysovat Then 'Pokud lze trojúhelník narýsovat
                Console.WriteLine("Trojúhelník lze narýsovat.")
                Console.WriteLine("Obvod trojúhelníku je: {0}", A + B + C)
                'Vzorcem na výpočet obsahu se příliš nezatěžujte, pokud jste zvídavý tak je popsán zde: http://www.matweb.cz/obsah-trojuhelniku
                Dim s As Double = (A + B + C) / 2
                Dim obsah = Math.Sqrt(s * (s - A) * (s - B) * (s - C))
                Console.WriteLine("Obsah trojúhelníku je: {0}", obsah)
            Else
                Console.WriteLine("Trojúhelník nelze narýsovat")
            End If
        Catch ex As InvalidCastException
            'Ach jo, uživatel je trubka a píše nám tam nesmsly...
            Console.WriteLine("Neplatná hodnota.")
        End Try
        Console.WriteLine()
    End While
End Sub